/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / gnus / nnspool.elc.z / nnspool.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 33 3a 31 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:15 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 6e 75 73 |s-20.3/l|isp/gnus|
|000000a0| 2f 6e 6e 73 70 6f 6f 6c | 2e 65 6c 0a 3b 3b 3b 20 |/nnspool|.el.;;; |
|000000b0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 32 30 |emacs ve|rsion 20|
|000000c0| 2e 34 20 22 45 6d 65 72 | 61 6c 64 22 20 58 45 6d |.4 "Emer|ald" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs  Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))).    |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 6e 6e 73 70 6f 6f 6c |(error "|`nnspool|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |...(byte|-code ".|
|00000260| c1 21 88 c0 c2 21 88 c0 | c3 21 88 c0 c4 21 88 c5 |.!...!..|.!...!..|
|00000270| c6 c7 c8 5c 22 c8 89 46 | 0e 09 42 16 09 c5 ca 44 |...\"..F|..B....D|
|00000280| 0e 0b 42 16 0b c8 87 22 | 20 5b 72 65 71 75 69 72 |..B...."| [requir|
|00000290| 65 20 6e 6e 68 65 61 64 | 65 72 20 6e 6e 74 70 20 |e nnhead|er nntp |
|000002a0| 74 69 6d 65 7a 6f 6e 65 | 20 6e 6e 6f 6f 20 6e 6e |timezone| nnoo nn|
|000002b0| 73 70 6f 6f 6c 20 6d 61 | 70 63 61 72 20 23 5b 28 |spool ma|pcar #[(|
|000002c0| 70 29 20 22 08 43 87 22 | 20 5b 70 5d 20 31 5d 20 |p) ".C."| [p] 1] |
|000002d0| 6e 69 6c 20 6e 6e 6f 6f | 2d 64 65 66 69 6e 69 74 |nil nnoo|-definit|
|000002e0| 69 6f 6e 2d 61 6c 69 73 | 74 20 22 2a 69 6e 74 65 |ion-alis|t "*inte|
|000002f0| 72 6e 61 6c 2d 6e 6f 6e | 2d 69 6e 69 74 69 61 6c |rnal-non|-initial|
|00000300| 69 7a 65 64 2d 62 61 63 | 6b 65 6e 64 2a 22 20 6e |ized-bac|kend*" n|
|00000310| 6e 6f 6f 2d 73 74 61 74 | 65 2d 61 6c 69 73 74 5d |noo-stat|e-alist]|
|00000320| 20 34 29 0a 23 40 36 37 | 20 50 72 6f 67 72 61 6d | 4).#@67| Program|
|00000330| 20 74 6f 20 70 6f 73 74 | 20 6e 65 77 73 2e 0a 54 | to post| news..T|
|00000340| 68 69 73 20 69 73 20 6d | 6f 73 74 20 63 6f 6d 6d |his is m|ost comm|
|00000350| 6f 6e 6c 79 20 60 69 6e | 65 77 73 27 20 6f 72 20 |only `in|ews' or |
|00000360| 60 69 6e 6a 6e 65 77 73 | 27 2e 1f 0a 28 64 65 66 |`injnews|'...(def|
|00000370| 76 61 72 20 6e 6e 73 70 | 6f 6f 6c 2d 69 6e 65 77 |var nnsp|ool-inew|
|00000380| 73 2d 70 72 6f 67 72 61 | 6d 20 6e 65 77 73 2d 69 |s-progra|m news-i|
|00000390| 6e 65 77 73 2d 70 72 6f | 67 72 61 6d 20 28 23 24 |news-pro|gram (#$|
|000003a0| 20 2e 20 38 30 39 29 29 | 0a 28 6e 6e 6f 6f 2d 64 | . 809))|.(nnoo-d|
|000003b0| 65 66 69 6e 65 20 27 6e | 6e 73 70 6f 6f 6c 2d 69 |efine 'n|nspool-i|
|000003c0| 6e 65 77 73 2d 70 72 6f | 67 72 61 6d 20 6e 69 6c |news-pro|gram nil|
|000003d0| 29 0a 23 40 31 34 32 20 | 53 77 69 74 63 68 65 73 |).#@142 |Switches|
|000003e0| 20 66 6f 72 20 6e 6e 73 | 70 6f 6f 6c 2d 72 65 71 | for nns|pool-req|
|000003f0| 75 65 73 74 2d 70 6f 73 | 74 20 74 6f 20 70 61 73 |uest-pos|t to pas|
|00000400| 73 20 74 6f 20 60 69 6e | 65 77 73 27 20 66 6f 72 |s to `in|ews' for|
|00000410| 20 70 6f 73 74 69 6e 67 | 20 6e 65 77 73 2e 0a 49 | posting| news..I|
|00000420| 66 20 79 6f 75 20 61 72 | 65 20 75 73 69 6e 67 20 |f you ar|e using |
|00000430| 43 6e 65 77 73 2c 20 79 | 6f 75 20 70 72 6f 62 61 |Cnews, y|ou proba|
|00000440| 62 6c 79 20 73 68 6f 75 | 6c 64 20 73 65 74 20 74 |bly shou|ld set t|
|00000450| 68 69 73 20 76 61 72 69 | 61 62 6c 65 20 74 6f 20 |his vari|able to |
|00000460| 6e 69 6c 2e 1f 0a 28 64 | 65 66 76 61 72 20 6e 6e |nil...(d|efvar nn|
|00000470| 73 70 6f 6f 6c 2d 69 6e | 65 77 73 2d 73 77 69 74 |spool-in|ews-swit|
|00000480| 63 68 65 73 20 27 28 22 | 2d 68 22 20 22 2d 53 22 |ches '("|-h" "-S"|
|00000490| 29 20 28 23 24 20 2e 20 | 39 38 34 29 29 0a 28 6e |) (#$ . |984)).(n|
|000004a0| 6e 6f 6f 2d 64 65 66 69 | 6e 65 20 27 6e 6e 73 70 |noo-defi|ne 'nnsp|
|000004b0| 6f 6f 6c 2d 69 6e 65 77 | 73 2d 73 77 69 74 63 68 |ool-inew|s-switch|
|000004c0| 65 73 20 6e 69 6c 29 0a | 23 40 32 39 20 4c 6f 63 |es nil).|#@29 Loc|
|000004d0| 61 6c 20 6e 65 77 73 20 | 73 70 6f 6f 6c 20 64 69 |al news |spool di|
|000004e0| 72 65 63 74 6f 72 79 2e | 1f 0a 28 64 65 66 76 61 |rectory.|..(defva|
|000004f0| 72 20 6e 6e 73 70 6f 6f | 6c 2d 73 70 6f 6f 6c 2d |r nnspoo|l-spool-|
|00000500| 64 69 72 65 63 74 6f 72 | 79 20 28 66 69 6c 65 2d |director|y (file-|
|00000510| 6e 61 6d 65 2d 61 73 2d | 64 69 72 65 63 74 6f 72 |name-as-|director|
|00000520| 79 20 6e 65 77 73 2d 70 | 61 74 68 29 20 28 23 24 |y news-p|ath) (#$|
|00000530| 20 2e 20 31 32 32 39 29 | 29 0a 28 6e 6e 6f 6f 2d | . 1229)|).(nnoo-|
|00000540| 64 65 66 69 6e 65 20 27 | 6e 6e 73 70 6f 6f 6c 2d |define '|nnspool-|
|00000550| 73 70 6f 6f 6c 2d 64 69 | 72 65 63 74 6f 72 79 20 |spool-di|rectory |
|00000560| 6e 69 6c 29 0a 23 40 32 | 37 20 4c 6f 63 61 6c 20 |nil).#@2|7 Local |
|00000570| 6e 65 77 73 20 6e 6f 76 | 20 64 69 72 65 63 74 6f |news nov| directo|
|00000580| 72 79 2e 1f 0a 28 64 65 | 66 76 61 72 20 6e 6e 73 |ry...(de|fvar nns|
|00000590| 70 6f 6f 6c 2d 6e 6f 76 | 2d 64 69 72 65 63 74 6f |pool-nov|-directo|
|000005a0| 72 79 20 28 63 6f 6e 63 | 61 74 20 6e 6e 73 70 6f |ry (conc|at nnspo|
|000005b0| 6f 6c 2d 73 70 6f 6f 6c | 2d 64 69 72 65 63 74 6f |ol-spool|-directo|
|000005c0| 72 79 20 22 6f 76 65 72 | 2e 76 69 65 77 2f 22 29 |ry "over|.view/")|
|000005d0| 20 28 23 24 20 2e 20 31 | 33 38 36 29 29 0a 28 6e | (#$ . 1|386)).(n|
|000005e0| 6e 6f 6f 2d 64 65 66 69 | 6e 65 20 27 6e 6e 73 70 |noo-defi|ne 'nnsp|
|000005f0| 6f 6f 6c 2d 6e 6f 76 2d | 64 69 72 65 63 74 6f 72 |ool-nov-|director|
|00000600| 79 20 6e 69 6c 29 0a 23 | 40 34 38 20 57 68 65 72 |y nil).#|@48 Wher|
|00000610| 65 20 74 68 65 20 6c 6f | 63 61 6c 20 6e 65 77 73 |e the lo|cal news|
|00000620| 20 6c 69 62 72 61 72 79 | 20 66 69 6c 65 73 20 61 | library| files a|
|00000630| 72 65 20 73 74 6f 72 65 | 64 2e 1f 0a 28 64 65 66 |re store|d...(def|
|00000640| 76 61 72 20 6e 6e 73 70 | 6f 6f 6c 2d 6c 69 62 2d |var nnsp|ool-lib-|
|00000650| 64 69 72 20 22 2f 75 73 | 72 2f 6c 69 62 2f 6e 65 |dir "/us|r/lib/ne|
|00000660| 77 73 2f 22 20 28 23 24 | 20 2e 20 31 35 34 38 29 |ws/" (#$| . 1548)|
|00000670| 29 0a 28 6e 6e 6f 6f 2d | 64 65 66 69 6e 65 20 27 |).(nnoo-|define '|
|00000680| 6e 6e 73 70 6f 6f 6c 2d | 6c 69 62 2d 64 69 72 20 |nnspool-|lib-dir |
|00000690| 6e 69 6c 29 0a 23 40 32 | 35 20 4c 6f 63 61 6c 20 |nil).#@2|5 Local |
|000006a0| 6e 65 77 73 20 61 63 74 | 69 76 65 20 66 69 6c 65 |news act|ive file|
|000006b0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6e 6e 73 70 6f |...(defv|ar nnspo|
|000006c0| 6f 6c 2d 61 63 74 69 76 | 65 2d 66 69 6c 65 20 28 |ol-activ|e-file (|
|000006d0| 63 6f 6e 63 61 74 20 6e | 6e 73 70 6f 6f 6c 2d 6c |concat n|nspool-l|
|000006e0| 69 62 2d 64 69 72 20 22 | 61 63 74 69 76 65 22 29 |ib-dir "|active")|
|000006f0| 20 28 23 24 20 2e 20 31 | 36 39 30 29 29 0a 28 6e | (#$ . 1|690)).(n|
|00000700| 6e 6f 6f 2d 64 65 66 69 | 6e 65 20 27 6e 6e 73 70 |noo-defi|ne 'nnsp|
|00000710| 6f 6f 6c 2d 61 63 74 69 | 76 65 2d 66 69 6c 65 20 |ool-acti|ve-file |
|00000720| 6e 69 6c 29 0a 23 40 32 | 39 20 4c 6f 63 61 6c 20 |nil).#@2|9 Local |
|00000730| 6e 65 77 73 20 6e 65 77 | 73 67 72 6f 75 70 73 20 |news new|sgroups |
|00000740| 66 69 6c 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 6e |file...(|defvar n|
|00000750| 6e 73 70 6f 6f 6c 2d 6e | 65 77 73 67 72 6f 75 70 |nspool-n|ewsgroup|
|00000760| 73 2d 66 69 6c 65 20 28 | 63 6f 6e 63 61 74 20 6e |s-file (|concat n|
|00000770| 6e 73 70 6f 6f 6c 2d 6c | 69 62 2d 64 69 72 20 22 |nspool-l|ib-dir "|
|00000780| 6e 65 77 73 67 72 6f 75 | 70 73 22 29 20 28 23 24 |newsgrou|ps") (#$|
|00000790| 20 2e 20 31 38 33 34 29 | 29 0a 28 6e 6e 6f 6f 2d | . 1834)|).(nnoo-|
|000007a0| 64 65 66 69 6e 65 20 27 | 6e 6e 73 70 6f 6f 6c 2d |define '|nnspool-|
|000007b0| 6e 65 77 73 67 72 6f 75 | 70 73 2d 66 69 6c 65 20 |newsgrou|ps-file |
|000007c0| 6e 69 6c 29 0a 23 40 33 | 32 20 4c 6f 63 61 6c 20 |nil).#@3|2 Local |
|000007d0| 6e 65 77 73 20 64 69 73 | 74 72 69 62 75 74 69 6f |news dis|tributio|
|000007e0| 6e 73 20 66 69 6c 65 2e | 1f 0a 28 64 65 66 76 61 |ns file.|..(defva|
|000007f0| 72 20 6e 6e 73 70 6f 6f | 6c 2d 64 69 73 74 72 69 |r nnspoo|l-distri|
|00000800| 62 75 74 69 6f 6e 73 2d | 66 69 6c 65 20 28 63 6f |butions-|file (co|
|00000810| 6e 63 61 74 20 6e 6e 73 | 70 6f 6f 6c 2d 6c 69 62 |ncat nns|pool-lib|
|00000820| 2d 64 69 72 20 22 64 69 | 73 74 72 69 62 73 2e 70 |-dir "di|stribs.p|
|00000830| 61 74 22 29 20 28 23 24 | 20 2e 20 31 39 39 34 29 |at") (#$| . 1994)|
|00000840| 29 0a 28 6e 6e 6f 6f 2d | 64 65 66 69 6e 65 20 27 |).(nnoo-|define '|
|00000850| 6e 6e 73 70 6f 6f 6c 2d | 64 69 73 74 72 69 62 75 |nnspool-|distribu|
|00000860| 74 69 6f 6e 73 2d 66 69 | 6c 65 20 6e 69 6c 29 0a |tions-fi|le nil).|
|00000870| 23 40 32 36 20 4c 6f 63 | 61 6c 20 6e 65 77 73 20 |#@26 Loc|al news |
|00000880| 68 69 73 74 6f 72 79 20 | 66 69 6c 65 2e 1f 0a 28 |history |file...(|
|00000890| 64 65 66 76 61 72 20 6e | 6e 73 70 6f 6f 6c 2d 68 |defvar n|nspool-h|
|000008a0| 69 73 74 6f 72 79 2d 66 | 69 6c 65 20 28 63 6f 6e |istory-f|ile (con|
|000008b0| 63 61 74 20 6e 6e 73 70 | 6f 6f 6c 2d 6c 69 62 2d |cat nnsp|ool-lib-|
|000008c0| 64 69 72 20 22 68 69 73 | 74 6f 72 79 22 29 20 28 |dir "his|tory") (|
|000008d0| 23 24 20 2e 20 32 31 36 | 35 29 29 0a 28 6e 6e 6f |#$ . 216|5)).(nno|
|000008e0| 6f 2d 64 65 66 69 6e 65 | 20 27 6e 6e 73 70 6f 6f |o-define| 'nnspoo|
|000008f0| 6c 2d 68 69 73 74 6f 72 | 79 2d 66 69 6c 65 20 6e |l-histor|y-file n|
|00000900| 69 6c 29 0a 23 40 33 30 | 20 4c 6f 63 61 6c 20 6e |il).#@30| Local n|
|00000910| 65 77 73 20 61 63 74 69 | 76 65 20 64 61 74 65 20 |ews acti|ve date |
|00000920| 66 69 6c 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 6e |file...(|defvar n|
|00000930| 6e 73 70 6f 6f 6c 2d 61 | 63 74 69 76 65 2d 74 69 |nspool-a|ctive-ti|
|00000940| 6d 65 73 2d 66 69 6c 65 | 20 28 63 6f 6e 63 61 74 |mes-file| (concat|
|00000950| 20 6e 6e 73 70 6f 6f 6c | 2d 6c 69 62 2d 64 69 72 | nnspool|-lib-dir|
|00000960| 20 22 61 63 74 69 76 65 | 2e 74 69 6d 65 73 22 29 | "active|.times")|
|00000970| 20 28 23 24 20 2e 20 32 | 33 31 33 29 29 0a 28 6e | (#$ . 2|313)).(n|
|00000980| 6e 6f 6f 2d 64 65 66 69 | 6e 65 20 27 6e 6e 73 70 |noo-defi|ne 'nnsp|
|00000990| 6f 6f 6c 2d 61 63 74 69 | 76 65 2d 74 69 6d 65 73 |ool-acti|ve-times|
|000009a0| 2d 66 69 6c 65 20 6e 69 | 6c 29 0a 23 40 31 38 33 |-file ni|l).#@183|
|000009b0| 20 54 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 74 | The num|ber of t|
|000009c0| 68 65 20 61 72 74 69 63 | 6c 65 73 20 77 68 69 63 |he artic|les whic|
|000009d0| 68 20 69 6e 64 69 63 61 | 74 65 73 20 61 20 6c 61 |h indica|tes a la|
|000009e0| 72 67 65 20 6e 65 77 73 | 67 72 6f 75 70 2e 0a 49 |rge news|group..I|
|000009f0| 66 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |f the nu|mber of |
|00000a00| 74 68 65 20 61 72 74 69 | 63 6c 65 73 20 69 73 20 |the arti|cles is |
|00000a10| 67 72 65 61 74 65 72 20 | 74 68 61 6e 20 74 68 65 |greater |than the|
|00000a20| 20 76 61 6c 75 65 2c 20 | 76 65 72 62 6f 73 65 0a | value, |verbose.|
|00000a30| 6d 65 73 73 61 67 65 73 | 20 77 69 6c 6c 20 62 65 |messages| will be|
|00000a40| 20 73 68 6f 77 6e 20 74 | 6f 20 69 6e 64 69 63 61 | shown t|o indica|
|00000a50| 74 65 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 73 |te the c|urrent s|
|00000a60| 74 61 74 75 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |tatus...|(defvar |
|00000a70| 6e 6e 73 70 6f 6f 6c 2d | 6c 61 72 67 65 2d 6e 65 |nnspool-|large-ne|
|00000a80| 77 73 67 72 6f 75 70 20 | 35 30 20 28 23 24 20 2e |wsgroup |50 (#$ .|
|00000a90| 20 32 34 38 31 29 29 0a | 28 6e 6e 6f 6f 2d 64 65 | 2481)).|(nnoo-de|
|00000aa0| 66 69 6e 65 20 27 6e 6e | 73 70 6f 6f 6c 2d 6c 61 |fine 'nn|spool-la|
|00000ab0| 72 67 65 2d 6e 65 77 73 | 67 72 6f 75 70 20 6e 69 |rge-news|group ni|
|00000ac0| 6c 29 0a 23 40 37 36 20 | 4e 6f 6e 2d 6e 69 6c 20 |l).#@76 |Non-nil |
|00000ad0| 6d 65 61 6e 73 20 74 68 | 61 74 20 6e 6e 73 70 6f |means th|at nnspo|
|00000ae0| 6f 6c 20 77 69 6c 6c 20 | 6e 65 76 65 72 20 72 65 |ol will |never re|
|00000af0| 74 75 72 6e 20 4e 4f 56 | 20 6c 69 6e 65 73 20 69 |turn NOV| lines i|
|00000b00| 6e 73 74 65 61 64 20 6f | 66 20 68 65 61 64 65 72 |nstead o|f header|
|00000b10| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 6e 6e 73 70 |s...(def|var nnsp|
|00000b20| 6f 6f 6c 2d 6e 6f 76 2d | 69 73 2d 65 76 69 6c 20 |ool-nov-|is-evil |
|00000b30| 6e 69 6c 20 28 23 24 20 | 2e 20 32 37 36 30 29 29 |nil (#$ |. 2760))|
|00000b40| 0a 28 6e 6e 6f 6f 2d 64 | 65 66 69 6e 65 20 27 6e |.(nnoo-d|efine 'n|
|00000b50| 6e 73 70 6f 6f 6c 2d 6e | 6f 76 2d 69 73 2d 65 76 |nspool-n|ov-is-ev|
|00000b60| 69 6c 20 6e 69 6c 29 0a | 23 40 31 35 31 20 49 66 |il nil).|#@151 If|
|00000b70| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 75 73 65 20 73 65 | non-nil|, use se|
|00000b80| 64 20 74 6f 20 67 65 74 | 20 74 68 65 20 72 65 6c |d to get| the rel|
|00000b90| 65 76 61 6e 74 20 70 6f | 72 74 69 6f 6e 20 66 72 |evant po|rtion fr|
|00000ba0| 6f 6d 20 74 68 65 20 6f | 76 65 72 76 69 65 77 20 |om the o|verview |
|00000bb0| 66 69 6c 65 2e 0a 49 66 | 20 6e 69 6c 2c 20 6e 6e |file..If| nil, nn|
|00000bc0| 73 70 6f 6f 6c 20 77 69 | 6c 6c 20 6c 6f 61 64 20 |spool wi|ll load |
|00000bd0| 74 68 65 20 65 6e 74 69 | 72 65 20 66 69 6c 65 20 |the enti|re file |
|00000be0| 69 6e 74 6f 20 61 20 62 | 75 66 66 65 72 20 61 6e |into a b|uffer an|
|00000bf0| 64 20 70 72 6f 63 65 73 | 73 20 69 74 0a 74 68 65 |d proces|s it.the|
|00000c00| 72 65 2e 1f 0a 28 64 65 | 66 63 6f 6e 73 74 20 6e |re...(de|fconst n|
|00000c10| 6e 73 70 6f 6f 6c 2d 73 | 69 66 74 2d 6e 6f 76 2d |nspool-s|ift-nov-|
|00000c20| 77 69 74 68 2d 73 65 64 | 20 6e 69 6c 20 28 23 24 |with-sed| nil (#$|
|00000c30| 20 2e 20 32 39 32 36 29 | 29 0a 23 40 37 35 20 2a | . 2926)|).#@75 *|
|00000c40| 41 20 68 6f 6f 6b 20 74 | 68 61 74 20 77 69 6c 6c |A hook t|hat will|
|00000c50| 20 62 65 20 72 75 6e 20 | 77 68 65 6e 20 61 6e 20 | be run |when an |
|00000c60| 61 72 74 69 63 6c 65 20 | 68 61 73 20 62 65 65 6e |article |has been|
|00000c70| 20 72 65 6a 65 63 74 65 | 64 20 62 79 20 74 68 65 | rejecte|d by the|
|00000c80| 20 73 65 72 76 65 72 2e | 1f 0a 28 64 65 66 76 61 | server.|..(defva|
|00000c90| 72 20 6e 6e 73 70 6f 6f | 6c 2d 72 65 6a 65 63 74 |r nnspoo|l-reject|
|00000ca0| 65 64 2d 61 72 74 69 63 | 6c 65 2d 68 6f 6f 6b 20 |ed-artic|le-hook |
|00000cb0| 6e 69 6c 20 28 23 24 20 | 2e 20 2d 33 31 33 35 29 |nil (#$ |. -3135)|
|00000cc0| 29 0a 28 6e 6e 6f 6f 2d | 64 65 66 69 6e 65 20 27 |).(nnoo-|define '|
|00000cd0| 6e 6e 73 70 6f 6f 6c 2d | 72 65 6a 65 63 74 65 64 |nnspool-|rejected|
|00000ce0| 2d 61 72 74 69 63 6c 65 | 2d 68 6f 6f 6b 20 6e 69 |-article|-hook ni|
|00000cf0| 6c 29 0a 23 40 32 38 20 | 43 6f 64 69 6e 67 20 73 |l).#@28 |Coding s|
|00000d00| 79 73 74 65 6d 20 66 6f | 72 20 6e 6e 73 70 6f 6f |ystem fo|r nnspoo|
|00000d10| 6c 2e 1f 0a 28 64 65 66 | 76 61 72 20 6e 6e 73 70 |l...(def|var nnsp|
|00000d20| 6f 6f 6c 2d 66 69 6c 65 | 2d 63 6f 64 69 6e 67 2d |ool-file|-coding-|
|00000d30| 73 79 73 74 65 6d 20 6e | 6e 68 65 61 64 65 72 2d |system n|nheader-|
|00000d40| 66 69 6c 65 2d 63 6f 64 | 69 6e 67 2d 73 79 73 74 |file-cod|ing-syst|
|00000d50| 65 6d 20 28 23 24 20 2e | 20 33 33 32 30 29 29 0a |em (#$ .| 3320)).|
|00000d60| 28 6e 6e 6f 6f 2d 64 65 | 66 69 6e 65 20 27 6e 6e |(nnoo-de|fine 'nn|
|00000d70| 73 70 6f 6f 6c 2d 66 69 | 6c 65 2d 63 6f 64 69 6e |spool-fi|le-codin|
|00000d80| 67 2d 73 79 73 74 65 6d | 20 6e 69 6c 29 0a 23 40 |g-system| nil).#@|
|00000d90| 34 35 20 56 65 72 73 69 | 6f 6e 20 6e 75 6d 62 65 |45 Versi|on numbe|
|00000da0| 72 73 20 6f 66 20 74 68 | 69 73 20 76 65 72 73 69 |rs of th|is versi|
|00000db0| 6f 6e 20 6f 66 20 4e 4e | 53 50 4f 4f 4c 2e 1f 0a |on of NN|SPOOL...|
|00000dc0| 28 64 65 66 63 6f 6e 73 | 74 20 6e 6e 73 70 6f 6f |(defcons|t nnspoo|
|00000dd0| 6c 2d 76 65 72 73 69 6f | 6e 20 22 6e 6e 73 70 6f |l-versio|n "nnspo|
|00000de0| 6f 6c 20 32 2e 30 22 20 | 28 23 24 20 2e 20 33 34 |ol 2.0" |(#$ . 34|
|00000df0| 37 35 29 29 0a 23 40 33 | 31 20 43 75 72 72 65 6e |75)).#@3|1 Curren|
|00000e00| 74 20 6e 65 77 73 20 67 | 72 6f 75 70 20 64 69 72 |t news g|roup dir|
|00000e10| 65 63 74 6f 72 79 2e 1f | 0a 28 64 65 66 76 61 72 |ectory..|.(defvar|
|00000e20| 20 6e 6e 73 70 6f 6f 6c | 2d 63 75 72 72 65 6e 74 | nnspool|-current|
|00000e30| 2d 64 69 72 65 63 74 6f | 72 79 20 6e 69 6c 20 28 |-directo|ry nil (|
|00000e40| 23 24 20 2e 20 33 35 37 | 38 29 29 0a 28 62 79 74 |#$ . 357|8)).(byt|
|00000e50| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c3 c4 |e-code "|...\"...|
|00000e60| 21 ac 82 c2 14 c4 0d 42 | 15 c0 c4 c2 5c 22 88 c3 |!......B|....\"..|
|00000e70| c6 21 ac 83 c7 16 06 c6 | 0d 42 15 c0 c6 c2 5c 22 |.!......|.B....\"|
|00000e80| 88 c8 c9 21 87 22 20 5b | 6e 6e 6f 6f 2d 64 65 66 |...!." [|nnoo-def|
|00000e90| 69 6e 65 20 6e 6e 73 70 | 6f 6f 6c 2d 63 75 72 72 |ine nnsp|ool-curr|
|00000ea0| 65 6e 74 2d 64 69 72 65 | 63 74 6f 72 79 20 6e 69 |ent-dire|ctory ni|
|00000eb0| 6c 20 62 6f 75 6e 64 70 | 20 6e 6e 73 70 6f 6f 6c |l boundp| nnspool|
|00000ec0| 2d 63 75 72 72 65 6e 74 | 2d 67 72 6f 75 70 20 63 |-current|-group c|
|00000ed0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000ee0| 20 6e 6e 73 70 6f 6f 6c | 2d 73 74 61 74 75 73 2d | nnspool|-status-|
|00000ef0| 73 74 72 69 6e 67 20 22 | 22 20 6e 6e 6f 6f 2d 64 |string "|" nnoo-d|
|00000f00| 65 66 69 6e 65 2d 62 61 | 73 69 63 73 2d 31 20 6e |efine-ba|sics-1 n|
|00000f10| 6e 73 70 6f 6f 6c 5d 20 | 33 29 0a 23 40 33 35 20 |nspool] |3).#@35 |
|00000f20| 52 65 74 72 69 65 76 65 | 20 74 68 65 20 68 65 61 |Retrieve| the hea|
|00000f30| 64 65 72 73 20 6f 66 20 | 41 52 54 49 43 4c 45 53 |ders of |ARTICLES|
|00000f40| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |...(defa|lias 'nn|
|00000f50| 73 70 6f 6f 6c 2d 72 65 | 74 72 69 65 76 65 2d 68 |spool-re|trieve-h|
|00000f60| 65 61 64 65 72 73 20 23 | 5b 28 61 72 74 69 63 6c |eaders #|[(articl|
|00000f70| 65 73 20 26 6f 70 74 69 | 6f 6e 61 6c 20 67 72 6f |es &opti|onal gro|
|00000f80| 75 70 20 73 65 72 76 65 | 72 20 66 65 74 63 68 2d |up serve|r fetch-|
|00000f90| 6f 6c 64 29 20 22 8a 08 | 71 88 c1 20 88 c2 0b 21 |old) "..|q.. ...!|
|00000fa0| 85 16 01 0c 47 1d c6 1e | 07 0e 08 1e 09 0e 5c 6e |....G...|......\n|
|00000fb0| a7 ad 84 0d 0e 5c 6e 56 | 1e 0b 0e 0c 1e 0d ce 1e |.....\nV|........|
|00000fc0| 0f ce 1e 10 ce 1e 11 ce | 1e 12 0c 40 a7 ab 8b d3 |........|...@....|
|00000fd0| 0c 0e 14 5c 22 ab 84 d5 | 82 14 01 0c 89 41 14 40 |...\"...|.....A.@|
|00000fe0| 89 16 11 83 08 01 0e 11 | 3b ab 9a d6 0e 11 21 89 |........|;.....!.|
|00000ff0| 16 12 ad 88 d7 0e 12 40 | 0e 12 41 5c 22 16 0f 0e |.......@|..A\"...|
|00001000| 12 41 16 11 aa 86 d8 0e | 11 21 16 0f 0e 0f ab f3 |.A......|.!......|
|00001010| d9 0e 0f 21 ab ed da 63 | 88 db 0e 11 70 5c 22 88 |...!...c|....p\".|
|00001020| dc 63 88 60 16 10 0e 0f | 1e 0f d9 0e 0f 21 ab bf |.c.`....|.....!..|
|00001030| 0e 1d de 61 ab 87 df 0e | 0f 21 88 aa b2 c6 ce 1e |...a....|.!......|
|00001040| 20 1e 10 0e 21 e2 df 0e | 0f ce 0e 10 89 0e 21 5c | ...!...|......!\|
|00001050| 5c 89 16 10 24 38 61 ab | 96 e3 e4 ce de 23 3f 64 |\...$8a.|.....#?d|
|00001060| 62 88 ab 8b 0e 1d ab 5c | 5c 0e 10 0e 1d 57 ac 55 |b......\|\....W.U|
|00001070| 2a 29 0e 10 62 88 e3 e4 | ce de 23 88 e5 75 88 e6 |*)..b...|..#..u..|
|00001080| 63 88 60 64 7c 88 0e 0b | 83 42 00 0e 07 54 89 16 |c.`d|...|.B...T..|
|00001090| 07 e7 a6 c6 55 83 42 00 | e8 e9 0e 07 ea 5f 0d a5 |....U.B.|....._..|
|000010a0| 5c 22 88 82 42 00 0e 0b | ab 84 e8 eb 21 88 ec 20 |\"..B...|....!.. |
|000010b0| 88 ed 2e 09 29 87 22 20 | 5b 6e 6e 74 70 2d 73 65 |....)." |[nntp-se|
|000010c0| 72 76 65 72 2d 62 75 66 | 66 65 72 20 65 72 61 73 |rver-buf|fer eras|
|000010d0| 65 2d 62 75 66 66 65 72 | 20 6e 6e 73 70 6f 6f 6c |e-buffer| nnspool|
|000010e0| 2d 70 6f 73 73 69 62 6c | 79 2d 63 68 61 6e 67 65 |-possibl|y-change|
|000010f0| 2d 64 69 72 65 63 74 6f | 72 79 20 67 72 6f 75 70 |-directo|ry group|
|00001100| 20 61 72 74 69 63 6c 65 | 73 20 6e 75 6d 62 65 72 | article|s number|
|00001110| 20 30 20 63 6f 75 6e 74 | 20 6e 6e 73 70 6f 6f 6c | 0 count| nnspool|
|00001120| 2d 63 75 72 72 65 6e 74 | 2d 64 69 72 65 63 74 6f |-current|-directo|
|00001130| 72 79 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |ry defau|lt-direc|
|00001140| 74 6f 72 79 20 6e 6e 73 | 70 6f 6f 6c 2d 6c 61 72 |tory nns|pool-lar|
|00001150| 67 65 2d 6e 65 77 73 67 | 72 6f 75 70 20 64 6f 2d |ge-newsg|roup do-|
|00001160| 6d 65 73 73 61 67 65 20 | 6e 6e 73 70 6f 6f 6c 2d |message |nnspool-|
|00001170| 66 69 6c 65 2d 63 6f 64 | 69 6e 67 2d 73 79 73 74 |file-cod|ing-syst|
|00001180| 65 6d 20 6e 6e 68 65 61 | 64 65 72 2d 66 69 6c 65 |em nnhea|der-file|
|00001190| 2d 63 6f 64 69 6e 67 2d | 73 79 73 74 65 6d 20 6e |-coding-|system n|
|000011a0| 69 6c 20 66 69 6c 65 20 | 62 65 67 20 61 72 74 69 |il file |beg arti|
|000011b0| 63 6c 65 20 61 67 20 6e | 6e 73 70 6f 6f 6c 2d 72 |cle ag n|nspool-r|
|000011c0| 65 74 72 69 65 76 65 2d | 68 65 61 64 65 72 73 2d |etrieve-|headers-|
|000011d0| 77 69 74 68 2d 6e 6f 76 | 20 66 65 74 63 68 2d 6f |with-nov| fetch-o|
|000011e0| 6c 64 20 6e 6f 76 20 6e | 6e 73 70 6f 6f 6c 2d 66 |ld nov n|nspool-f|
|000011f0| 69 6e 64 2d 69 64 20 6e | 6e 73 70 6f 6f 6c 2d 61 |ind-id n|nspool-a|
|00001200| 72 74 69 63 6c 65 2d 70 | 61 74 68 6e 61 6d 65 20 |rticle-p|athname |
|00001210| 69 6e 74 2d 74 6f 2d 73 | 74 72 69 6e 67 20 66 69 |int-to-s|tring fi|
|00001220| 6c 65 2d 65 78 69 73 74 | 73 2d 70 20 22 32 32 31 |le-exist|s-p "221|
|00001230| 20 22 20 70 72 69 6e 63 | 20 22 20 41 72 74 69 63 | " princ| " Artic|
|00001240| 6c 65 20 72 65 74 72 69 | 65 76 65 64 2e 5c 6e 22 |le retri|eved.\n"|
|00001250| 20 6e 6e 68 65 61 64 65 | 72 2d 6d 61 78 2d 68 65 | nnheade|r-max-he|
|00001260| 61 64 2d 6c 65 6e 67 74 | 68 20 74 20 6e 6e 68 65 |ad-lengt|h t nnhe|
|00001270| 61 64 65 72 2d 69 6e 73 | 65 72 74 2d 66 69 6c 65 |ader-ins|ert-file|
|00001280| 2d 63 6f 6e 74 65 6e 74 | 73 20 66 6f 72 6d 61 74 |-content|s format|
|00001290| 2d 61 6c 69 73 74 20 6e | 6e 68 65 61 64 65 72 2d |-alist n|nheader-|
|000012a0| 68 65 61 64 2d 63 68 6f | 70 2d 6c 65 6e 67 74 68 |head-cho|p-length|
|000012b0| 20 31 20 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 | 1 searc|h-forwar|
|000012c0| 64 20 22 5c 6e 5c 6e 22 | 20 2d 31 20 22 2e 5c 6e |d "\n\n"| -1 ".\n|
|000012d0| 22 20 32 30 20 6d 65 73 | 73 61 67 65 20 22 6e 6e |" 20 mes|sage "nn|
|000012e0| 73 70 6f 6f 6c 3a 20 52 | 65 63 65 69 76 69 6e 67 |spool: R|eceiving|
|000012f0| 20 68 65 61 64 65 72 73 | 2e 2e 2e 20 25 64 25 25 | headers|... %d%%|
|00001300| 22 20 31 30 30 20 22 6e | 6e 73 70 6f 6f 6c 3a 20 |" 100 "n|nspool: |
|00001310| 52 65 63 65 69 76 69 6e | 67 20 68 65 61 64 65 72 |Receivin|g header|
|00001320| 73 2e 2e 2e 64 6f 6e 65 | 22 20 6e 6e 68 65 61 64 |s...done|" nnhead|
|00001330| 65 72 2d 66 6f 6c 64 2d | 63 6f 6e 74 69 6e 75 61 |er-fold-|continua|
|00001340| 74 69 6f 6e 2d 6c 69 6e | 65 73 20 68 65 61 64 65 |tion-lin|es heade|
|00001350| 72 73 5d 20 39 20 28 23 | 24 20 2e 20 33 38 37 32 |rs] 9 (#|$ . 3872|
|00001360| 29 5d 29 0a 28 6e 6e 6f | 6f 2d 72 65 67 69 73 74 |)]).(nno|o-regist|
|00001370| 65 72 2d 66 75 6e 63 74 | 69 6f 6e 20 27 6e 6e 73 |er-funct|ion 'nns|
|00001380| 70 6f 6f 6c 2d 72 65 74 | 72 69 65 76 65 2d 68 65 |pool-ret|rieve-he|
|00001390| 61 64 65 72 73 29 0a 28 | 64 65 66 61 6c 69 61 73 |aders).(|defalias|
|000013a0| 20 27 6e 6e 73 70 6f 6f | 6c 2d 6f 70 65 6e 2d 73 | 'nnspoo|l-open-s|
|000013b0| 65 72 76 65 72 20 23 5b | 28 73 65 72 76 65 72 20 |erver #[|(server |
|000013c0| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 65 66 73 29 20 |&optiona|l defs) |
|000013d0| 22 c0 c1 5c 6e 0b 23 88 | c4 0d 21 ac 89 c6 20 88 |"..\n.#.|..!... .|
|000013e0| c7 c1 c8 0d 23 87 c9 ca | cb 0d 21 21 21 ac 89 c6 |....#...|..!!!...|
|000013f0| 20 88 c7 c1 cc 0d 23 87 | c4 0e 0d 21 ac 87 c7 c1 | .....#.|...!....|
|00001400| ce 0e 0d 23 87 c7 c1 cf | 5c 6e 0d 24 88 d0 87 22 |...#....|\n.$..."|
|00001410| 20 5b 6e 6e 6f 6f 2d 63 | 68 61 6e 67 65 2d 73 65 | [nnoo-c|hange-se|
|00001420| 72 76 65 72 20 6e 6e 73 | 70 6f 6f 6c 20 73 65 72 |rver nns|pool ser|
|00001430| 76 65 72 20 64 65 66 73 | 20 66 69 6c 65 2d 65 78 |ver defs| file-ex|
|00001440| 69 73 74 73 2d 70 20 6e | 6e 73 70 6f 6f 6c 2d 73 |ists-p n|nspool-s|
|00001450| 70 6f 6f 6c 2d 64 69 72 | 65 63 74 6f 72 79 20 6e |pool-dir|ectory n|
|00001460| 6e 73 70 6f 6f 6c 2d 63 | 6c 6f 73 65 2d 73 65 72 |nspool-c|lose-ser|
|00001470| 76 65 72 20 6e 6e 68 65 | 61 64 65 72 2d 72 65 70 |ver nnhe|ader-rep|
|00001480| 6f 72 74 20 22 53 70 6f | 6f 6c 20 64 69 72 65 63 |ort "Spo|ol direc|
|00001490| 74 6f 72 79 20 64 6f 65 | 73 6e 27 74 20 65 78 69 |tory doe|sn't exi|
|000014a0| 73 74 3a 20 25 73 22 20 | 66 69 6c 65 2d 64 69 72 |st: %s" |file-dir|
|000014b0| 65 63 74 6f 72 79 2d 70 | 20 64 69 72 65 63 74 6f |ectory-p| directo|
|000014c0| 72 79 2d 66 69 6c 65 2d | 6e 61 6d 65 20 66 69 6c |ry-file-|name fil|
|000014d0| 65 2d 74 72 75 65 6e 61 | 6d 65 20 22 4e 6f 74 20 |e-truena|me "Not |
|000014e0| 61 20 64 69 72 65 63 74 | 6f 72 79 3a 20 25 73 22 |a direct|ory: %s"|
|000014f0| 20 6e 6e 73 70 6f 6f 6c | 2d 61 63 74 69 76 65 2d | nnspool|-active-|
|00001500| 66 69 6c 65 20 22 54 68 | 65 20 61 63 74 69 76 65 |file "Th|e active|
|00001510| 20 66 69 6c 65 20 64 6f | 65 73 6e 27 74 20 65 78 | file do|esn't ex|
|00001520| 69 73 74 3a 20 25 73 22 | 20 22 4f 70 65 6e 65 64 |ist: %s"| "Opened|
|00001530| 20 73 65 72 76 65 72 20 | 25 73 20 75 73 69 6e 67 | server |%s using|
|00001540| 20 64 69 72 65 63 74 6f | 72 79 20 25 73 22 20 74 | directo|ry %s" t|
|00001550| 5d 20 35 5d 29 0a 28 6e | 6e 6f 6f 2d 72 65 67 69 |] 5]).(n|noo-regi|
|00001560| 73 74 65 72 2d 66 75 6e | 63 74 69 6f 6e 20 27 6e |ster-fun|ction 'n|
|00001570| 6e 73 70 6f 6f 6c 2d 6f | 70 65 6e 2d 73 65 72 76 |nspool-o|pen-serv|
|00001580| 65 72 29 0a 23 40 34 33 | 20 53 65 6c 65 63 74 20 |er).#@43| Select |
|00001590| 61 72 74 69 63 6c 65 20 | 62 79 20 6d 65 73 73 61 |article |by messa|
|000015a0| 67 65 20 49 44 20 28 6f | 72 20 6e 75 6d 62 65 72 |ge ID (o|r number|
|000015b0| 29 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |)...(def|alias 'n|
|000015c0| 6e 73 70 6f 6f 6c 2d 72 | 65 71 75 65 73 74 2d 61 |nspool-r|equest-a|
|000015d0| 72 74 69 63 6c 65 20 23 | 5b 28 69 64 20 26 6f 70 |rticle #|[(id &op|
|000015e0| 74 69 6f 6e 61 6c 20 67 | 72 6f 75 70 20 73 65 72 |tional g|roup ser|
|000015f0| 76 65 72 20 62 75 66 66 | 65 72 29 20 22 c0 09 21 |ver buff|er) "..!|
|00001600| 88 5c 6e ae 81 0b c4 89 | 1d 1e 06 1b 0e 07 3b ab |.\n.....|......;.|
|00001610| 92 c8 0e 07 21 89 15 ab | 92 c9 0d 40 0d 41 5c 22 |....!...|...@.A\"|
|00001620| 16 06 aa 88 c9 0e 5c 6e | 0e 07 5c 22 16 06 0e 06 |......\n|..\"....|
|00001630| ad a2 cb 0e 06 21 ad 9c | cc 0e 06 21 3f ad 95 8a |.....!..|...!?...|
|00001640| cd 0e 06 21 29 ad 8d 0e | 07 a7 ab 87 0e 5c 6e 0e |...!)...|.....\n.|
|00001650| 07 42 aa 81 0d 2b 87 22 | 20 5b 6e 6e 73 70 6f 6f |.B...+."| [nnspoo|
|00001660| 6c 2d 70 6f 73 73 69 62 | 6c 79 2d 63 68 61 6e 67 |l-possib|ly-chang|
|00001670| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 67 72 6f 75 |e-direct|ory grou|
|00001680| 70 20 62 75 66 66 65 72 | 20 6e 6e 74 70 2d 73 65 |p buffer| nntp-se|
|00001690| 72 76 65 72 2d 62 75 66 | 66 65 72 20 6e 69 6c 20 |rver-buf|fer nil |
|000016a0| 61 67 20 66 69 6c 65 20 | 69 64 20 6e 6e 73 70 6f |ag file |id nnspo|
|000016b0| 6f 6c 2d 66 69 6e 64 2d | 69 64 20 6e 6e 73 70 6f |ol-find-|id nnspo|
|000016c0| 6f 6c 2d 61 72 74 69 63 | 6c 65 2d 70 61 74 68 6e |ol-artic|le-pathn|
|000016d0| 61 6d 65 20 6e 6e 73 70 | 6f 6f 6c 2d 63 75 72 72 |ame nnsp|ool-curr|
|000016e0| 65 6e 74 2d 67 72 6f 75 | 70 20 66 69 6c 65 2d 65 |ent-grou|p file-e|
|000016f0| 78 69 73 74 73 2d 70 20 | 66 69 6c 65 2d 64 69 72 |xists-p |file-dir|
|00001700| 65 63 74 6f 72 79 2d 70 | 20 6e 6e 73 70 6f 6f 6c |ectory-p| nnspool|
|00001710| 2d 66 69 6e 64 2d 66 69 | 6c 65 5d 20 33 20 28 23 |-find-fi|le] 3 (#|
|00001720| 24 20 2e 20 35 35 31 33 | 29 5d 29 0a 28 6e 6e 6f |$ . 5513|)]).(nno|
|00001730| 6f 2d 72 65 67 69 73 74 | 65 72 2d 66 75 6e 63 74 |o-regist|er-funct|
|00001740| 69 6f 6e 20 27 6e 6e 73 | 70 6f 6f 6c 2d 72 65 71 |ion 'nns|pool-req|
|00001750| 75 65 73 74 2d 61 72 74 | 69 63 6c 65 29 0a 23 40 |uest-art|icle).#@|
|00001760| 34 38 20 53 65 6c 65 63 | 74 20 61 72 74 69 63 6c |48 Selec|t articl|
|00001770| 65 20 62 6f 64 79 20 62 | 79 20 6d 65 73 73 61 67 |e body b|y messag|
|00001780| 65 20 49 44 20 28 6f 72 | 20 6e 75 6d 62 65 72 29 |e ID (or| number)|
|00001790| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |...(defa|lias 'nn|
|000017a0| 73 70 6f 6f 6c 2d 72 65 | 71 75 65 73 74 2d 62 6f |spool-re|quest-bo|
|000017b0| 64 79 20 23 5b 28 69 64 | 20 26 6f 70 74 69 6f 6e |dy #[(id| &option|
|000017c0| 61 6c 20 67 72 6f 75 70 | 20 73 65 72 76 65 72 29 |al group| server)|
|000017d0| 20 22 c0 09 21 88 c2 0b | 21 89 1c ad 94 8a 0d 71 | "..!...|!......q|
|000017e0| 88 65 62 88 c6 c7 c8 c9 | 23 ab 84 65 60 7c 88 0c |.eb.....|#..e`|..|
|000017f0| 29 29 87 22 20 5b 6e 6e | 73 70 6f 6f 6c 2d 70 6f |))." [nn|spool-po|
|00001800| 73 73 69 62 6c 79 2d 63 | 68 61 6e 67 65 2d 64 69 |ssibly-c|hange-di|
|00001810| 72 65 63 74 6f 72 79 20 | 67 72 6f 75 70 20 6e 6e |rectory |group nn|
|00001820| 73 70 6f 6f 6c 2d 72 65 | 71 75 65 73 74 2d 61 72 |spool-re|quest-ar|
|00001830| 74 69 63 6c 65 20 69 64 | 20 72 65 73 20 6e 6e 74 |ticle id| res nnt|
|00001840| 70 2d 73 65 72 76 65 72 | 2d 62 75 66 66 65 72 20 |p-server|-buffer |
|00001850| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00001860| 5c 6e 5c 6e 22 20 6e 69 | 6c 20 74 5d 20 35 20 28 |\n\n" ni|l t] 5 (|
|00001870| 23 24 20 2e 20 35 39 38 | 37 29 5d 29 0a 28 6e 6e |#$ . 598|7)]).(nn|
|00001880| 6f 6f 2d 72 65 67 69 73 | 74 65 72 2d 66 75 6e 63 |oo-regis|ter-func|
|00001890| 74 69 6f 6e 20 27 6e 6e | 73 70 6f 6f 6c 2d 72 65 |tion 'nn|spool-re|
|000018a0| 71 75 65 73 74 2d 62 6f | 64 79 29 0a 23 40 34 38 |quest-bo|dy).#@48|
|000018b0| 20 53 65 6c 65 63 74 20 | 61 72 74 69 63 6c 65 20 | Select |article |
|000018c0| 68 65 61 64 20 62 79 20 | 6d 65 73 73 61 67 65 20 |head by |message |
|000018d0| 49 44 20 28 6f 72 20 6e | 75 6d 62 65 72 29 2e 1f |ID (or n|umber)..|
|000018e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 73 70 |.(defali|as 'nnsp|
|000018f0| 6f 6f 6c 2d 72 65 71 75 | 65 73 74 2d 68 65 61 64 |ool-requ|est-head|
|00001900| 20 23 5b 28 69 64 20 26 | 6f 70 74 69 6f 6e 61 6c | #[(id &|optional|
|00001910| 20 67 72 6f 75 70 20 73 | 65 72 76 65 72 29 20 22 | group s|erver) "|
|00001920| c0 09 21 88 c2 0b 21 89 | 1c ab 97 8a 0d 71 88 65 |..!...!.|.....q.e|
|00001930| 62 88 c6 c7 c8 c9 23 ab | 85 60 53 64 7c 88 ca 20 |b.....#.|.`Sd|.. |
|00001940| 88 29 0c 29 87 22 20 5b | 6e 6e 73 70 6f 6f 6c 2d |.).)." [|nnspool-|
|00001950| 70 6f 73 73 69 62 6c 79 | 2d 63 68 61 6e 67 65 2d |possibly|-change-|
|00001960| 64 69 72 65 63 74 6f 72 | 79 20 67 72 6f 75 70 20 |director|y group |
|00001970| 6e 6e 73 70 6f 6f 6c 2d | 72 65 71 75 65 73 74 2d |nnspool-|request-|
|00001980| 61 72 74 69 63 6c 65 20 | 69 64 20 72 65 73 20 6e |article |id res n|
|00001990| 6e 74 70 2d 73 65 72 76 | 65 72 2d 62 75 66 66 65 |ntp-serv|er-buffe|
|000019a0| 72 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |r search|-forward|
|000019b0| 20 22 5c 6e 5c 6e 22 20 | 6e 69 6c 20 74 20 6e 6e | "\n\n" |nil t nn|
|000019c0| 68 65 61 64 65 72 2d 66 | 6f 6c 64 2d 63 6f 6e 74 |header-f|old-cont|
|000019d0| 69 6e 75 61 74 69 6f 6e | 2d 6c 69 6e 65 73 5d 20 |inuation|-lines] |
|000019e0| 35 20 28 23 24 20 2e 20 | 36 33 32 31 29 5d 29 0a |5 (#$ . |6321)]).|
|000019f0| 28 6e 6e 6f 6f 2d 72 65 | 67 69 73 74 65 72 2d 66 |(nnoo-re|gister-f|
|00001a00| 75 6e 63 74 69 6f 6e 20 | 27 6e 6e 73 70 6f 6f 6c |unction |'nnspool|
|00001a10| 2d 72 65 71 75 65 73 74 | 2d 68 65 61 64 29 0a 23 |-request|-head).#|
|00001a20| 40 32 30 20 53 65 6c 65 | 63 74 20 6e 65 77 73 20 |@20 Sele|ct news |
|00001a30| 47 52 4f 55 50 2e 1f 0a | 28 64 65 66 61 6c 69 61 |GROUP...|(defalia|
|00001a40| 73 20 27 6e 6e 73 70 6f | 6f 6c 2d 72 65 71 75 65 |s 'nnspo|ol-reque|
|00001a50| 73 74 2d 67 72 6f 75 70 | 20 23 5b 28 67 72 6f 75 |st-group| #[(grou|
|00001a60| 70 20 26 6f 70 74 69 6f | 6e 61 6c 20 73 65 72 76 |p &optio|nal serv|
|00001a70| 65 72 20 64 6f 6e 74 2d | 63 68 65 63 6b 29 20 22 |er dont-|check) "|
|00001a80| c0 09 21 c2 1b 1c c5 0c | 21 ac 87 c6 c7 c8 09 23 |..!.....|!......#|
|00001a90| aa cb 0c 16 09 c6 c7 ca | 09 23 88 0e 0b ab 89 c6 |........|.#......|
|00001aa0| c7 ca 09 23 88 cc aa b5 | cd 0c c2 ce cc 24 89 13 |...#....|.....$..|
|00001ab0| ab 88 cf d0 d1 0b 5c 22 | d2 5c 22 13 0b ab 96 d3 |......\"|.\".....|
|00001ac0| d4 0b 47 0b 40 0b 41 ab | 86 0b 41 89 13 aa 77 0b |..G.@.A.|..A...w.|
|00001ad0| 40 09 25 aa 8a c6 c7 d5 | 09 23 88 d3 d6 09 5c 22 |@.%.....|.#....\"|
|00001ae0| 2a 87 22 20 5b 6e 6e 73 | 70 6f 6f 6c 2d 61 72 74 |*." [nns|pool-art|
|00001af0| 69 63 6c 65 2d 70 61 74 | 68 6e 61 6d 65 20 67 72 |icle-pat|hname gr|
|00001b00| 6f 75 70 20 6e 69 6c 20 | 64 69 72 20 70 61 74 68 |oup nil |dir path|
|00001b10| 6e 61 6d 65 20 66 69 6c | 65 2d 64 69 72 65 63 74 |name fil|e-direct|
|00001b20| 6f 72 79 2d 70 20 6e 6e | 68 65 61 64 65 72 2d 72 |ory-p nn|header-r|
|00001b30| 65 70 6f 72 74 20 6e 6e | 73 70 6f 6f 6c 20 22 49 |eport nn|spool "I|
|00001b40| 6e 76 61 6c 69 64 20 67 | 72 6f 75 70 20 6e 61 6d |nvalid g|roup nam|
|00001b50| 65 20 28 6e 6f 20 73 75 | 63 68 20 64 69 72 65 63 |e (no su|ch direc|
|00001b60| 74 6f 72 79 29 3a 20 25 | 73 22 20 6e 6e 73 70 6f |tory): %|s" nnspo|
|00001b70| 6f 6c 2d 63 75 72 72 65 | 6e 74 2d 64 69 72 65 63 |ol-curre|nt-direc|
|00001b80| 74 6f 72 79 20 22 53 65 | 6c 65 63 74 65 64 20 67 |tory "Se|lected g|
|00001b90| 72 6f 75 70 20 25 73 22 | 20 64 6f 6e 74 2d 63 68 |roup %s"| dont-ch|
|00001ba0| 65 63 6b 20 74 20 64 69 | 72 65 63 74 6f 72 79 2d |eck t di|rectory-|
|00001bb0| 66 69 6c 65 73 20 22 5e | 5b 30 2d 39 5d 2b 24 22 |files "^|[0-9]+$"|
|00001bc0| 20 73 6f 72 74 20 6d 61 | 70 63 61 72 20 23 5b 28 | sort ma|pcar #[(|
|00001bd0| 6e 61 6d 65 29 20 22 c0 | 09 21 87 22 20 5b 73 74 |name) ".|.!." [st|
|00001be0| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 6e 61 6d 65 |ring-to-|int name|
|00001bf0| 5d 20 32 5d 20 3c 20 6e | 6e 68 65 61 64 65 72 2d |] 2] < n|nheader-|
|00001c00| 69 6e 73 65 72 74 20 22 | 32 31 31 20 25 64 20 25 |insert "|211 %d %|
|00001c10| 64 20 25 64 20 25 73 5c | 6e 22 20 22 45 6d 70 74 |d %d %s\|n" "Empt|
|00001c20| 79 20 67 72 6f 75 70 20 | 25 73 22 20 22 32 31 31 |y group |%s" "211|
|00001c30| 20 30 20 30 20 30 20 25 | 73 5c 6e 22 5d 20 37 20 | 0 0 0 %|s\n"] 7 |
|00001c40| 28 23 24 20 2e 20 36 36 | 39 32 29 5d 29 0a 28 6e |(#$ . 66|92)]).(n|
|00001c50| 6e 6f 6f 2d 72 65 67 69 | 73 74 65 72 2d 66 75 6e |noo-regi|ster-fun|
|00001c60| 63 74 69 6f 6e 20 27 6e | 6e 73 70 6f 6f 6c 2d 72 |ction 'n|nspool-r|
|00001c70| 65 71 75 65 73 74 2d 67 | 72 6f 75 70 29 0a 28 64 |equest-g|roup).(d|
|00001c80| 65 66 61 6c 69 61 73 20 | 27 6e 6e 73 70 6f 6f 6c |efalias |'nnspool|
|00001c90| 2d 72 65 71 75 65 73 74 | 2d 74 79 70 65 20 23 5b |-request|-type #[|
|00001ca0| 28 67 72 6f 75 70 20 26 | 6f 70 74 69 6f 6e 61 6c |(group &|optional|
|00001cb0| 20 61 72 74 69 63 6c 65 | 29 20 22 c0 87 22 20 5b | article|) ".." [|
|00001cc0| 6e 65 77 73 5d 20 31 5d | 29 0a 28 6e 6e 6f 6f 2d |news] 1]|).(nnoo-|
|00001cd0| 72 65 67 69 73 74 65 72 | 2d 66 75 6e 63 74 69 6f |register|-functio|
|00001ce0| 6e 20 27 6e 6e 73 70 6f | 6f 6c 2d 72 65 71 75 65 |n 'nnspo|ol-reque|
|00001cf0| 73 74 2d 74 79 70 65 29 | 0a 28 64 65 66 61 6c 69 |st-type)|.(defali|
|00001d00| 61 73 20 27 6e 6e 73 70 | 6f 6f 6c 2d 63 6c 6f 73 |as 'nnsp|ool-clos|
|00001d10| 65 2d 67 72 6f 75 70 20 | 23 5b 28 67 72 6f 75 70 |e-group |#[(group|
|00001d20| 20 26 6f 70 74 69 6f 6e | 61 6c 20 73 65 72 76 65 | &option|al serve|
|00001d30| 72 29 20 22 c0 87 22 20 | 5b 74 5d 20 31 5d 29 0a |r) ".." |[t] 1]).|
|00001d40| 28 6e 6e 6f 6f 2d 72 65 | 67 69 73 74 65 72 2d 66 |(nnoo-re|gister-f|
|00001d50| 75 6e 63 74 69 6f 6e 20 | 27 6e 6e 73 70 6f 6f 6c |unction |'nnspool|
|00001d60| 2d 63 6c 6f 73 65 2d 67 | 72 6f 75 70 29 0a 23 40 |-close-g|roup).#@|
|00001d70| 32 35 20 4c 69 73 74 20 | 61 63 74 69 76 65 20 6e |25 List |active n|
|00001d80| 65 77 73 67 72 6f 75 70 | 73 2e 1f 0a 28 64 65 66 |ewsgroup|s...(def|
|00001d90| 61 6c 69 61 73 20 27 6e | 6e 73 70 6f 6f 6c 2d 72 |alias 'n|nspool-r|
|00001da0| 65 71 75 65 73 74 2d 6c | 69 73 74 20 23 5b 28 26 |equest-l|ist #[(&|
|00001db0| 6f 70 74 69 6f 6e 61 6c | 20 73 65 72 76 65 72 29 |optional| server)|
|00001dc0| 20 22 8a c0 09 21 ae 86 | c2 c3 c4 09 21 5c 22 29 | "...!..|....!\")|
|00001dd0| 87 22 20 5b 6e 6e 73 70 | 6f 6f 6c 2d 66 69 6e 64 |." [nnsp|ool-find|
|00001de0| 2d 66 69 6c 65 20 6e 6e | 73 70 6f 6f 6c 2d 61 63 |-file nn|spool-ac|
|00001df0| 74 69 76 65 2d 66 69 6c | 65 20 6e 6e 68 65 61 64 |tive-fil|e nnhead|
|00001e00| 65 72 2d 72 65 70 6f 72 | 74 20 6e 6e 73 70 6f 6f |er-repor|t nnspoo|
|00001e10| 6c 20 6e 6e 68 65 61 64 | 65 72 2d 66 69 6c 65 2d |l nnhead|er-file-|
|00001e20| 65 72 72 6f 72 5d 20 34 | 20 28 23 24 20 2e 20 37 |error] 4| (#$ . 7|
|00001e30| 35 33 39 29 5d 29 0a 28 | 6e 6e 6f 6f 2d 72 65 67 |539)]).(|nnoo-reg|
|00001e40| 69 73 74 65 72 2d 66 75 | 6e 63 74 69 6f 6e 20 27 |ister-fu|nction '|
|00001e50| 6e 6e 73 70 6f 6f 6c 2d | 72 65 71 75 65 73 74 2d |nnspool-|request-|
|00001e60| 6c 69 73 74 29 0a 23 40 | 33 37 20 4c 69 73 74 20 |list).#@|37 List |
|00001e70| 6e 65 77 73 67 72 6f 75 | 70 73 20 28 64 65 66 69 |newsgrou|ps (defi|
|00001e80| 6e 65 64 20 69 6e 20 4e | 4e 54 50 32 29 2e 1f 0a |ned in N|NTP2)...|
|00001e90| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 73 70 6f |(defalia|s 'nnspo|
|00001ea0| 6f 6c 2d 72 65 71 75 65 | 73 74 2d 6c 69 73 74 2d |ol-reque|st-list-|
|00001eb0| 6e 65 77 73 67 72 6f 75 | 70 73 20 23 5b 28 26 6f |newsgrou|ps #[(&o|
|00001ec0| 70 74 69 6f 6e 61 6c 20 | 73 65 72 76 65 72 29 20 |ptional |server) |
|00001ed0| 22 8a c0 09 21 ae 86 c2 | c3 c4 09 21 5c 22 29 87 |"...!...|...!\").|
|00001ee0| 22 20 5b 6e 6e 73 70 6f | 6f 6c 2d 66 69 6e 64 2d |" [nnspo|ol-find-|
|00001ef0| 66 69 6c 65 20 6e 6e 73 | 70 6f 6f 6c 2d 6e 65 77 |file nns|pool-new|
|00001f00| 73 67 72 6f 75 70 73 2d | 66 69 6c 65 20 6e 6e 68 |sgroups-|file nnh|
|00001f10| 65 61 64 65 72 2d 72 65 | 70 6f 72 74 20 6e 6e 73 |eader-re|port nns|
|00001f20| 70 6f 6f 6c 20 6e 6e 68 | 65 61 64 65 72 2d 66 69 |pool nnh|eader-fi|
|00001f30| 6c 65 2d 65 72 72 6f 72 | 5d 20 34 20 28 23 24 20 |le-error|] 4 (#$ |
|00001f40| 2e 20 37 37 38 37 29 5d | 29 0a 28 6e 6e 6f 6f 2d |. 7787)]|).(nnoo-|
|00001f50| 72 65 67 69 73 74 65 72 | 2d 66 75 6e 63 74 69 6f |register|-functio|
|00001f60| 6e 20 27 6e 6e 73 70 6f | 6f 6c 2d 72 65 71 75 65 |n 'nnspo|ol-reque|
|00001f70| 73 74 2d 6c 69 73 74 2d | 6e 65 77 73 67 72 6f 75 |st-list-|newsgrou|
|00001f80| 70 73 29 0a 23 40 34 30 | 20 4c 69 73 74 20 64 69 |ps).#@40| List di|
|00001f90| 73 74 72 69 62 75 74 69 | 6f 6e 73 20 28 64 65 66 |stributi|ons (def|
|00001fa0| 69 6e 65 64 20 69 6e 20 | 4e 4e 54 50 32 29 2e 1f |ined in |NNTP2)..|
|00001fb0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 73 70 |.(defali|as 'nnsp|
|00001fc0| 6f 6f 6c 2d 72 65 71 75 | 65 73 74 2d 6c 69 73 74 |ool-requ|est-list|
|00001fd0| 2d 64 69 73 74 72 69 62 | 75 74 69 6f 6e 73 20 23 |-distrib|utions #|
|00001fe0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 73 65 72 76 |[(&optio|nal serv|
|00001ff0| 65 72 29 20 22 8a c0 09 | 21 ae 86 c2 c3 c4 09 21 |er) "...|!......!|
|00002000| 5c 22 29 87 22 20 5b 6e | 6e 73 70 6f 6f 6c 2d 66 |\")." [n|nspool-f|
|00002010| 69 6e 64 2d 66 69 6c 65 | 20 6e 6e 73 70 6f 6f 6c |ind-file| nnspool|
|00002020| 2d 64 69 73 74 72 69 62 | 75 74 69 6f 6e 73 2d 66 |-distrib|utions-f|
|00002030| 69 6c 65 20 6e 6e 68 65 | 61 64 65 72 2d 72 65 70 |ile nnhe|ader-rep|
|00002040| 6f 72 74 20 6e 6e 73 70 | 6f 6f 6c 20 6e 6e 68 65 |ort nnsp|ool nnhe|
|00002050| 61 64 65 72 2d 66 69 6c | 65 2d 65 72 72 6f 72 5d |ader-fil|e-error]|
|00002060| 20 34 20 28 23 24 20 2e | 20 38 30 37 33 29 5d 29 | 4 (#$ .| 8073)])|
|00002070| 0a 28 6e 6e 6f 6f 2d 72 | 65 67 69 73 74 65 72 2d |.(nnoo-r|egister-|
|00002080| 66 75 6e 63 74 69 6f 6e | 20 27 6e 6e 73 70 6f 6f |function| 'nnspoo|
|00002090| 6c 2d 72 65 71 75 65 73 | 74 2d 6c 69 73 74 2d 64 |l-reques|t-list-d|
|000020a0| 69 73 74 72 69 62 75 74 | 69 6f 6e 73 29 0a 23 40 |istribut|ions).#@|
|000020b0| 33 33 20 4c 69 73 74 20 | 67 72 6f 75 70 73 20 63 |33 List |groups c|
|000020c0| 72 65 61 74 65 64 20 61 | 66 74 65 72 20 44 41 54 |reated a|fter DAT|
|000020d0| 45 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |E...(def|alias 'n|
|000020e0| 6e 73 70 6f 6f 6c 2d 72 | 65 71 75 65 73 74 2d 6e |nspool-r|equest-n|
|000020f0| 65 77 67 72 6f 75 70 73 | 20 23 5b 28 64 61 74 65 |ewgroups| #[(date|
|00002100| 20 26 6f 70 74 69 6f 6e | 61 6c 20 73 65 72 76 65 | &option|al serve|
|00002110| 72 29 20 22 c0 09 21 ad | dc 8a 64 62 88 c2 c3 21 |r) "..!.|..db...!|
|00002120| ac 86 c4 79 c5 55 ac 75 | c6 0e 07 21 c8 1e 09 1e |...y.U.u|...!....|
|00002130| 5c 6e c2 cb 21 ab a7 c5 | 95 53 62 88 cc 63 88 cd |\n..!...|.Sb..c..|
|00002140| 95 62 88 ce 70 21 0e 5c | 6e 56 ab 93 cd 94 cd 95 |.b..p!.\|nV......|
|00002150| 7b 0e 09 42 89 16 09 ab | 86 c4 79 c5 55 ac 54 cf |{..B....|..y.U.T.|
|00002160| 20 88 0e 09 ab 8f 0e 09 | 40 d0 b1 02 88 0e 09 41 | .......|@......A|
|00002170| 89 16 09 ac 71 2b d1 87 | 22 20 5b 6e 6e 73 70 6f |....q+..|" [nnspo|
|00002180| 6f 6c 2d 66 69 6e 64 2d | 66 69 6c 65 20 6e 6e 73 |ol-find-|file nns|
|00002190| 70 6f 6f 6c 2d 61 63 74 | 69 76 65 2d 74 69 6d 65 |pool-act|ive-time|
|000021a0| 73 2d 66 69 6c 65 20 6c | 6f 6f 6b 69 6e 67 2d 61 |s-file l|ooking-a|
|000021b0| 74 20 22 5c 5c 28 5b 5e | 20 5d 2b 5c 5c 29 20 2b |t "\\([^| ]+\\) +|
|000021c0| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 5b 30 2d 39 |\\([0-9]|+\\)[0-9|
|000021d0| 5d 5b 30 2d 39 5d 5b 30 | 2d 39 5d 20 22 20 2d 31 |][0-9][0|-9] " -1|
|000021e0| 20 30 20 6e 6e 73 70 6f | 6f 6c 2d 73 65 63 6f 6e | 0 nnspo|ol-secon|
|000021f0| 64 73 2d 73 69 6e 63 65 | 2d 65 70 6f 63 68 20 64 |ds-since|-epoch d|
|00002200| 61 74 65 20 6e 69 6c 20 | 67 72 6f 75 70 73 20 73 |ate nil |groups s|
|00002210| 65 63 6f 6e 64 73 20 22 | 5c 5c 28 5b 5e 20 5d 2b |econds "|\\([^ ]+|
|00002220| 5c 5c 29 20 2b 5b 30 2d | 39 5d 2b 20 22 20 22 2e |\\) +[0-|9]+ " ".|
|00002230| 30 22 20 31 20 72 65 61 | 64 20 65 72 61 73 65 2d |0" 1 rea|d erase-|
|00002240| 62 75 66 66 65 72 20 22 | 20 30 20 30 20 79 5c 6e |buffer "| 0 0 y\n|
|00002250| 22 20 74 5d 20 33 20 28 | 23 24 20 2e 20 38 33 37 |" t] 3 (|#$ . 837|
|00002260| 31 29 5d 29 0a 28 6e 6e | 6f 6f 2d 72 65 67 69 73 |1)]).(nn|oo-regis|
|00002270| 74 65 72 2d 66 75 6e 63 | 74 69 6f 6e 20 27 6e 6e |ter-func|tion 'nn|
|00002280| 73 70 6f 6f 6c 2d 72 65 | 71 75 65 73 74 2d 6e 65 |spool-re|quest-ne|
|00002290| 77 67 72 6f 75 70 73 29 | 0a 23 40 33 36 20 50 6f |wgroups)|.#@36 Po|
|000022a0| 73 74 20 61 20 6e 65 77 | 20 6e 65 77 73 20 69 6e |st a new| news in|
|000022b0| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 2e | current| buffer.|
|000022c0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6e 6e 73 |..(defal|ias 'nns|
|000022d0| 70 6f 6f 6c 2d 72 65 71 | 75 65 73 74 2d 70 6f 73 |pool-req|uest-pos|
|000022e0| 74 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |t #[(&op|tional s|
|000022f0| 65 72 76 65 72 29 20 22 | 8a c0 19 c2 c3 21 1c c5 |erver) "|.....!..|
|00002300| c6 c7 8f 89 1e 08 ad 98 | c9 ca cb 5c 22 88 cc 0e |........|...\"...|
|00002310| 08 cd 5c 22 88 ce 0e 08 | 65 64 23 88 c0 cf d0 8f |..\"....|ed#.....|
|00002320| 88 d1 2c 87 22 20 5b 6e | 69 6c 20 70 72 6f 63 65 |..,." [n|il proce|
|00002330| 73 73 2d 63 6f 6e 6e 65 | 63 74 69 6f 6e 2d 74 79 |ss-conne|ction-ty|
|00002340| 70 65 20 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |pe gener|ate-new-|
|00002350| 62 75 66 66 65 72 20 22 | 20 2a 6e 6e 73 70 6f 6f |buffer "| *nnspoo|
|00002360| 6c 20 70 6f 73 74 2a 22 | 20 69 6e 65 77 73 2d 62 |l post*"| inews-b|
|00002370| 75 66 66 65 72 20 65 72 | 72 20 28 62 79 74 65 2d |uffer er|r (byte-|
|00002380| 63 6f 64 65 20 22 c0 c1 | c2 0b 0c 0d 25 87 22 20 |code "..|....%." |
|00002390| 5b 61 70 70 6c 79 20 73 | 74 61 72 74 2d 70 72 6f |[apply s|tart-pro|
|000023a0| 63 65 73 73 20 22 2a 6e | 6e 73 70 6f 6f 6c 20 69 |cess "*n|nspool i|
|000023b0| 6e 65 77 73 2a 22 20 69 | 6e 65 77 73 2d 62 75 66 |news*" i|news-buf|
|000023c0| 66 65 72 20 6e 6e 73 70 | 6f 6f 6c 2d 69 6e 65 77 |fer nnsp|ool-inew|
|000023d0| 73 2d 70 72 6f 67 72 61 | 6d 20 6e 6e 73 70 6f 6f |s-progra|m nnspoo|
|000023e0| 6c 2d 69 6e 65 77 73 2d | 73 77 69 74 63 68 65 73 |l-inews-|switches|
|000023f0| 5d 20 36 29 20 28 28 65 | 72 72 6f 72 20 28 62 79 |] 6) ((e|rror (by|
|00002400| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 0b 23 87 22 |te-code |"....#."|
|00002410| 20 5b 6e 6e 68 65 61 64 | 65 72 2d 72 65 70 6f 72 | [nnhead|er-repor|
|00002420| 74 20 6e 6e 73 70 6f 6f | 6c 20 22 69 6e 65 77 73 |t nnspoo|l "inews|
|00002430| 20 65 72 72 6f 72 3a 20 | 25 53 22 20 65 72 72 5d | error: |%S" err]|
|00002440| 20 34 29 29 29 20 70 72 | 6f 63 20 6e 6e 68 65 61 | 4))) pr|oc nnhea|
|00002450| 64 65 72 2d 72 65 70 6f | 72 74 20 6e 6e 73 70 6f |der-repo|rt nnspo|
|00002460| 6f 6c 20 22 22 20 73 65 | 74 2d 70 72 6f 63 65 73 |ol "" se|t-proces|
|00002470| 73 2d 73 65 6e 74 69 6e | 65 6c 20 6e 6e 73 70 6f |s-sentin|el nnspo|
|00002480| 6f 6c 2d 69 6e 65 77 73 | 2d 73 65 6e 74 69 6e 65 |ol-inews|-sentine|
|00002490| 6c 20 70 72 6f 63 65 73 | 73 2d 73 65 6e 64 2d 72 |l proces|s-send-r|
|000024a0| 65 67 69 6f 6e 20 28 70 | 72 6f 63 65 73 73 2d 73 |egion (p|rocess-s|
|000024b0| 65 6e 64 2d 65 6f 66 20 | 70 72 6f 63 29 20 28 28 |end-eof |proc) ((|
|000024c0| 65 72 72 6f 72 29 29 20 | 74 5d 20 35 20 28 23 24 |error)) |t] 5 (#$|
|000024d0| 20 2e 20 38 38 36 32 29 | 5d 29 0a 28 6e 6e 6f 6f | . 8862)|]).(nnoo|
|000024e0| 2d 72 65 67 69 73 74 65 | 72 2d 66 75 6e 63 74 69 |-registe|r-functi|
|000024f0| 6f 6e 20 27 6e 6e 73 70 | 6f 6f 6c 2d 72 65 71 75 |on 'nnsp|ool-requ|
|00002500| 65 73 74 2d 70 6f 73 74 | 29 0a 28 64 65 66 61 6c |est-post|).(defal|
|00002510| 69 61 73 20 27 6e 6e 73 | 70 6f 6f 6c 2d 69 6e 65 |ias 'nns|pool-ine|
|00002520| 77 73 2d 73 65 6e 74 69 | 6e 65 6c 20 23 5b 28 70 |ws-senti|nel #[(p|
|00002530| 72 6f 63 20 73 74 61 74 | 75 73 29 20 22 8a c0 09 |roc stat|us) "...|
|00002540| 21 71 88 65 62 88 c2 20 | c3 55 ac 87 c4 c5 c6 c7 |!q.eb.. |.U......|
|00002550| 23 ab 85 c8 70 21 aa a2 | c9 ca c6 c7 23 ab 88 cb |#...p!..|....#...|
|00002560| cc c7 89 23 88 aa 71 cd | ce cf d0 20 23 88 d1 d2 |...#..q.|... #...|
|00002570| 0e 13 5c 22 88 d4 20 88 | d5 d6 21 29 87 22 20 5b |..\".. .|..!)." [|
|00002580| 70 72 6f 63 65 73 73 2d | 62 75 66 66 65 72 20 70 |process-|buffer p|
|00002590| 72 6f 63 20 62 75 66 66 | 65 72 2d 73 69 7a 65 20 |roc buff|er-size |
|000025a0| 30 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |0 search|-forward|
|000025b0| 20 22 73 70 6f 6f 6c 65 | 64 22 20 6e 69 6c 20 74 | "spoole|d" nil t|
|000025c0| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 72 65 2d | kill-bu|ffer re-|
|000025d0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|000025e0| 5b 20 09 5c 6e 5d 2b 22 | 20 72 65 70 6c 61 63 65 |[ .\n]+"| replace|
|000025f0| 2d 6d 61 74 63 68 20 22 | 20 22 20 6e 6e 68 65 61 |-match "| " nnhea|
|00002600| 64 65 72 2d 72 65 70 6f | 72 74 20 6e 6e 73 70 6f |der-repo|rt nnspo|
|00002610| 6f 6c 20 22 25 73 22 20 | 62 75 66 66 65 72 2d 73 |ol "%s" |buffer-s|
|00002620| 74 72 69 6e 67 20 6d 65 | 73 73 61 67 65 20 22 6e |tring me|ssage "n|
|00002630| 6e 73 70 6f 6f 6c 3a 20 | 25 73 22 20 6e 6e 73 70 |nspool: |%s" nnsp|
|00002640| 6f 6f 6c 2d 73 74 61 74 | 75 73 2d 73 74 72 69 6e |ool-stat|us-strin|
|00002650| 67 20 64 69 6e 67 20 72 | 75 6e 2d 68 6f 6f 6b 73 |g ding r|un-hooks|
|00002660| 20 6e 6e 73 70 6f 6f 6c | 2d 72 65 6a 65 63 74 65 | nnspool|-rejecte|
|00002670| 64 2d 61 72 74 69 63 6c | 65 2d 68 6f 6f 6b 5d 20 |d-articl|e-hook] |
|00002680| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |4]).(def|alias 'n|
|00002690| 6e 73 70 6f 6f 6c 2d 72 | 65 74 72 69 65 76 65 2d |nspool-r|etrieve-|
|000026a0| 68 65 61 64 65 72 73 2d | 77 69 74 68 2d 6e 6f 76 |headers-|with-nov|
|000026b0| 20 23 5b 28 61 72 74 69 | 63 6c 65 73 20 26 6f 70 | #[(arti|cles &op|
|000026c0| 74 69 6f 6e 61 6c 20 66 | 65 74 63 68 2d 6f 6c 64 |tional f|etch-old|
|000026d0| 29 20 22 08 ae 81 09 3f | ad c3 c2 0b 0c c5 23 0e |) "....?|......#.|
|000026e0| 06 0e 07 c8 1e 09 1e 5c | 6e 1e 0b 1e 0c cd 0e 0c |.......\|n.......|
|000026f0| 21 ad aa 8a 0e 0e 71 88 | cf 20 88 0e 10 ab 88 d0 |!.....q.|. ......|
|00002700| 0e 06 0e 0c 5c 22 aa 95 | d1 0e 0c 21 88 0e 12 ab |....\"..|...!....|
|00002710| 88 0e 12 a7 ac 83 d3 aa | 84 c8 d4 d5 8f 29 2c 87 |........|.....),.|
|00002720| 22 20 5b 67 6e 75 73 2d | 6e 6f 76 2d 69 73 2d 65 |" [gnus-|nov-is-e|
|00002730| 76 69 6c 20 6e 6e 73 70 | 6f 6f 6c 2d 6e 6f 76 2d |vil nnsp|ool-nov-|
|00002740| 69 73 2d 65 76 69 6c 20 | 6e 6e 68 65 61 64 65 72 |is-evil |nnheader|
|00002750| 2d 67 72 6f 75 70 2d 70 | 61 74 68 6e 61 6d 65 20 |-group-p|athname |
|00002760| 6e 6e 73 70 6f 6f 6c 2d | 63 75 72 72 65 6e 74 2d |nnspool-|current-|
|00002770| 67 72 6f 75 70 20 6e 6e | 73 70 6f 6f 6c 2d 6e 6f |group nn|spool-no|
|00002780| 76 2d 64 69 72 65 63 74 | 6f 72 79 20 22 2e 6f 76 |v-direct|ory ".ov|
|00002790| 65 72 76 69 65 77 22 20 | 61 72 74 69 63 6c 65 73 |erview" |articles|
|000027a0| 20 6e 6e 73 70 6f 6f 6c | 2d 66 69 6c 65 2d 63 6f | nnspool|-file-co|
|000027b0| 64 69 6e 67 2d 73 79 73 | 74 65 6d 20 6e 69 6c 20 |ding-sys|tem nil |
|000027c0| 6c 61 73 74 20 6e 6e 68 | 65 61 64 65 72 2d 66 69 |last nnh|eader-fi|
|000027d0| 6c 65 2d 63 6f 64 69 6e | 67 2d 73 79 73 74 65 6d |le-codin|g-system|
|000027e0| 20 61 72 74 73 20 6e 6f | 76 20 66 69 6c 65 2d 65 | arts no|v file-e|
|000027f0| 78 69 73 74 73 2d 70 20 | 6e 6e 74 70 2d 73 65 72 |xists-p |nntp-ser|
|00002800| 76 65 72 2d 62 75 66 66 | 65 72 20 65 72 61 73 65 |ver-buff|er erase|
|00002810| 2d 62 75 66 66 65 72 20 | 6e 6e 73 70 6f 6f 6c 2d |-buffer |nnspool-|
|00002820| 73 69 66 74 2d 6e 6f 76 | 2d 77 69 74 68 2d 73 65 |sift-nov|-with-se|
|00002830| 64 20 6e 6e 68 65 61 64 | 65 72 2d 69 6e 73 65 72 |d nnhead|er-inser|
|00002840| 74 2d 66 69 6c 65 2d 63 | 6f 6e 74 65 6e 74 73 20 |t-file-c|ontents |
|00002850| 66 65 74 63 68 2d 6f 6c | 64 20 74 20 28 62 79 74 |fetch-ol|d t (byt|
|00002860| 65 2d 63 6f 64 65 20 22 | c0 09 ab 88 c2 0b 40 09 |e-code "|......@.|
|00002870| 5a 5d aa 82 0b 40 c4 0b | 21 40 5c 22 88 c5 20 c6 |Z]...@..|!@\".. .|
|00002880| 55 3f ad b4 c7 79 88 c8 | 70 21 89 14 0b 40 55 ab |U?...y..|p!...@U.|
|00002890| 82 c9 87 0e 5c 6e ab 90 | 0c 0e 5c 6e 40 58 ab 89 |....\n..|..\n@X..|
|000028a0| 0e 5c 6e 89 41 16 5c 6e | 88 aa 6c 0e 5c 6e ab 8c |.\n.A.\n|..l.\n..|
|000028b0| cb 0e 5c 6e 89 41 16 5c | 6e 40 21 88 aa 70 c9 87 |..\n.A.\|n@!..p..|
|000028c0| 22 20 5b 6e 6e 68 65 61 | 64 65 72 2d 6e 6f 76 2d |" [nnhea|der-nov-|
|000028d0| 64 65 6c 65 74 65 2d 6f | 75 74 73 69 64 65 2d 72 |delete-o|utside-r|
|000028e0| 61 6e 67 65 20 66 65 74 | 63 68 2d 6f 6c 64 20 31 |ange fet|ch-old 1|
|000028f0| 20 61 72 74 69 63 6c 65 | 73 20 6c 61 73 74 20 62 | article|s last b|
|00002900| 75 66 66 65 72 2d 73 69 | 7a 65 20 30 20 2d 31 20 |uffer-si|ze 0 -1 |
|00002910| 72 65 61 64 20 74 20 61 | 72 74 73 20 6e 6e 73 70 |read t a|rts nnsp|
|00002920| 6f 6f 6c 2d 69 6e 73 65 | 72 74 2d 6e 6f 76 2d 68 |ool-inse|rt-nov-h|
|00002930| 65 61 64 5d 20 35 29 20 | 28 28 65 72 72 6f 72 29 |ead] 5) |((error)|
|00002940| 29 5d 20 34 5d 29 0a 23 | 40 36 33 20 52 65 61 64 |)] 4]).#|@63 Read|
|00002950| 20 74 68 65 20 68 65 61 | 64 20 6f 66 20 41 52 54 | the hea|d of ART|
|00002960| 49 43 4c 45 2c 20 63 6f | 6e 76 65 72 74 20 74 6f |ICLE, co|nvert to|
|00002970| 20 4e 4f 56 20 68 65 61 | 64 65 72 73 2c 20 61 6e | NOV hea|ders, an|
|00002980| 64 20 69 6e 73 65 72 74 | 2e 1f 0a 28 64 65 66 61 |d insert|...(defa|
|00002990| 6c 69 61 73 20 27 6e 6e | 73 70 6f 6f 6c 2d 69 6e |lias 'nn|spool-in|
|000029a0| 73 65 72 74 2d 6e 6f 76 | 2d 68 65 61 64 20 23 5b |sert-nov|-head #[|
|000029b0| 28 61 72 74 69 63 6c 65 | 29 20 22 8a 70 c0 19 1a |(article|) ".p...|
|000029c0| c3 c4 21 11 c5 c6 0e 07 | 0e 08 5c 22 21 ab 95 c9 |..!.....|..\"!...|
|000029d0| 0e 08 21 88 ca 20 1e 0b | 5c 6e 71 88 64 62 88 cc |..!.. ..|\nq.db..|
|000029e0| 0e 0b 21 88 29 cd 09 21 | 2b 87 22 20 5b 6e 69 6c |..!.)..!|+." [nil|
|000029f0| 20 62 75 66 20 63 75 72 | 20 6e 6e 68 65 61 64 65 | buf cur| nnheade|
|00002a00| 72 2d 73 65 74 2d 74 65 | 6d 70 2d 62 75 66 66 65 |r-set-te|mp-buffe|
|00002a10| 72 20 22 20 2a 6e 6e 73 | 70 6f 6f 6c 20 68 65 61 |r " *nns|pool hea|
|00002a20| 64 2a 22 20 6e 6e 68 65 | 61 64 65 72 2d 69 6e 73 |d*" nnhe|ader-ins|
|00002a30| 65 72 74 2d 68 65 61 64 | 20 6e 6e 73 70 6f 6f 6c |ert-head| nnspool|
|00002a40| 2d 61 72 74 69 63 6c 65 | 2d 70 61 74 68 6e 61 6d |-article|-pathnam|
|00002a50| 65 20 6e 6e 73 70 6f 6f | 6c 2d 63 75 72 72 65 6e |e nnspoo|l-curren|
|00002a60| 74 2d 67 72 6f 75 70 20 | 61 72 74 69 63 6c 65 20 |t-group |article |
|00002a70| 6e 6e 68 65 61 64 65 72 | 2d 69 6e 73 65 72 74 2d |nnheader|-insert-|
|00002a80| 61 72 74 69 63 6c 65 2d | 6c 69 6e 65 20 6e 6e 68 |article-|line nnh|
|00002a90| 65 61 64 65 72 2d 70 61 | 72 73 65 2d 68 65 61 64 |eader-pa|rse-head|
|00002aa0| 20 68 65 61 64 65 72 73 | 20 6e 6e 68 65 61 64 65 | headers| nnheade|
|00002ab0| 72 2d 69 6e 73 65 72 74 | 2d 6e 6f 76 20 6b 69 6c |r-insert|-nov kil|
|00002ac0| 6c 2d 62 75 66 66 65 72 | 5d 20 34 20 28 23 24 20 |l-buffer|] 4 (#$ |
|00002ad0| 2e 20 31 30 35 37 32 29 | 5d 29 0a 28 64 65 66 61 |. 10572)|]).(defa|
|00002ae0| 6c 69 61 73 20 27 6e 6e | 73 70 6f 6f 6c 2d 73 69 |lias 'nn|spool-si|
|00002af0| 66 74 2d 6e 6f 76 2d 77 | 69 74 68 2d 73 65 64 20 |ft-nov-w|ith-sed |
|00002b00| 23 5b 28 61 72 74 69 63 | 6c 65 73 20 66 69 6c 65 |#[(artic|les file|
|00002b10| 29 20 22 08 40 08 41 ab | 86 08 41 89 10 aa 77 08 |) ".@.A.|..A...w.|
|00002b20| 40 19 1a c3 c4 c5 c6 c5 | c7 c8 5c 6e 53 09 54 23 |@.......|..\nS.T#|
|00002b30| 0e 09 26 06 2a 87 22 20 | 5b 61 72 74 69 63 6c 65 |..&.*." |[article|
|00002b40| 73 20 6c 61 73 74 20 66 | 69 72 73 74 20 63 61 6c |s last f|irst cal|
|00002b50| 6c 2d 70 72 6f 63 65 73 | 73 20 22 61 77 6b 22 20 |l-proces|s "awk" |
|00002b60| 6e 69 6c 20 74 20 66 6f | 72 6d 61 74 20 22 42 45 |nil t fo|rmat "BE|
|00002b70| 47 49 4e 20 7b 66 69 72 | 73 74 6d 73 67 3d 25 64 |GIN {fir|stmsg=%d|
|00002b80| 3b 20 6c 61 73 74 6d 73 | 67 3d 25 64 3b 7d 5c 6e |; lastms|g=%d;}\n|
|00002b90| 20 24 31 20 3e 3d 20 66 | 69 72 73 74 6d 73 67 20 | $1 >= f|irstmsg |
|00002ba0| 26 26 20 24 31 20 3c 3d | 20 6c 61 73 74 6d 73 67 |&& $1 <=| lastmsg|
|00002bb0| 20 7b 70 72 69 6e 74 3b | 7d 22 20 66 69 6c 65 5d | {print;|}" file]|
|00002bc0| 20 31 30 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 10]).(d|efalias |
|00002bd0| 27 6e 6e 73 70 6f 6f 6c | 2d 66 69 6e 64 2d 69 64 |'nnspool|-find-id|
|00002be0| 20 23 5b 28 69 64 29 20 | 22 8a c0 c1 21 71 88 c2 | #[(id) |"...!q..|
|00002bf0| 70 21 88 c3 20 88 c4 c5 | c6 8f 88 65 62 88 c7 c8 |p!.. ...|...eb...|
|00002c00| 21 ad 89 c9 ca 21 cb c9 | cc 21 21 42 cd 70 21 88 |!....!..|.!!B.p!.|
|00002c10| 29 87 22 20 5b 67 65 74 | 2d 62 75 66 66 65 72 2d |)." [get|-buffer-|
|00002c20| 63 72 65 61 74 65 20 22 | 20 2a 6e 6e 73 70 6f 6f |create "| *nnspoo|
|00002c30| 6c 20 77 6f 72 6b 2a 22 | 20 62 75 66 66 65 72 2d |l work*"| buffer-|
|00002c40| 64 69 73 61 62 6c 65 2d | 75 6e 64 6f 20 65 72 61 |disable-|undo era|
|00002c50| 73 65 2d 62 75 66 66 65 | 72 20 6e 69 6c 20 28 62 |se-buffe|r nil (b|
|00002c60| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 c3 c2 c4 |yte-code| "......|
|00002c70| 0d 21 0e 06 26 06 87 22 | 20 5b 63 61 6c 6c 2d 70 |.!..&.."| [call-p|
|00002c80| 72 6f 63 65 73 73 20 22 | 67 72 65 70 22 20 6e 69 |rocess "|grep" ni|
|00002c90| 6c 20 74 20 72 65 67 65 | 78 70 2d 71 75 6f 74 65 |l t rege|xp-quote|
|00002ca0| 20 69 64 20 6e 6e 73 70 | 6f 6f 6c 2d 68 69 73 74 | id nnsp|ool-hist|
|00002cb0| 6f 72 79 2d 66 69 6c 65 | 5d 20 37 29 20 28 28 65 |ory-file|] 7) ((e|
|00002cc0| 72 72 6f 72 29 29 20 6c | 6f 6f 6b 69 6e 67 2d 61 |rror)) l|ooking-a|
|00002cd0| 74 20 22 3c 5b 5e 3e 5d | 2b 3e 5b 20 09 5d 2b 5b |t "<[^>]|+>[ .]+[|
|00002ce0| 2d 30 2d 39 7e 5d 2b 5b | 20 09 5d 2b 5c 5c 28 5b |-0-9~]+[| .]+\\([|
|00002cf0| 5e 20 2f 09 5c 6e 5d 2b | 5c 5c 29 2f 5c 5c 28 5b |^ /.\n]+|\\)/\\([|
|00002d00| 30 2d 39 5d 2b 5c 5c 29 | 5b 20 09 5c 6e 5d 22 20 |0-9]+\\)|[ .\n]" |
|00002d10| 6d 61 74 63 68 2d 73 74 | 72 69 6e 67 20 31 20 73 |match-st|ring 1 s|
|00002d20| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 32 20 6b |tring-to|-int 2 k|
|00002d30| 69 6c 6c 2d 62 75 66 66 | 65 72 5d 20 34 5d 29 0a |ill-buff|er] 4]).|
|00002d40| 23 40 33 38 20 49 6e 73 | 65 72 74 20 46 49 4c 45 |#@38 Ins|ert FILE|
|00002d50| 20 69 6e 20 73 65 72 76 | 65 72 20 62 75 66 66 65 | in serv|er buffe|
|00002d60| 72 20 73 61 66 65 6c 79 | 2e 1f 0a 28 64 65 66 61 |r safely|...(defa|
|00002d70| 6c 69 61 73 20 27 6e 6e | 73 70 6f 6f 6c 2d 66 69 |lias 'nn|spool-fi|
|00002d80| 6e 64 2d 66 69 6c 65 20 | 23 5b 28 66 69 6c 65 29 |nd-file |#[(file)|
|00002d90| 20 22 08 71 88 c1 20 88 | c2 c3 c4 8f 87 22 20 5b | ".q.. .|....." [|
|00002da0| 6e 6e 74 70 2d 73 65 72 | 76 65 72 2d 62 75 66 66 |nntp-ser|ver-buff|
|00002db0| 65 72 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |er erase|-buffer |
|00002dc0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00002dd0| 08 19 c2 0b 21 88 29 c4 | 87 22 20 5b 6e 6e 73 70 |....!.).|." [nnsp|
|00002de0| 6f 6f 6c 2d 66 69 6c 65 | 2d 63 6f 64 69 6e 67 2d |ool-file|-coding-|
|00002df0| 73 79 73 74 65 6d 20 6e | 6e 68 65 61 64 65 72 2d |system n|nheader-|
|00002e00| 66 69 6c 65 2d 63 6f 64 | 69 6e 67 2d 73 79 73 74 |file-cod|ing-syst|
|00002e10| 65 6d 20 6e 6e 68 65 61 | 64 65 72 2d 69 6e 73 65 |em nnhea|der-inse|
|00002e20| 72 74 2d 66 69 6c 65 2d | 63 6f 6e 74 65 6e 74 73 |rt-file-|contents|
|00002e30| 20 66 69 6c 65 20 74 5d | 20 32 29 20 28 28 66 69 | file t]| 2) ((fi|
|00002e40| 6c 65 2d 65 72 72 6f 72 | 29 29 5d 20 33 20 28 23 |le-error|))] 3 (#|
|00002e50| 24 20 2e 20 31 31 35 38 | 39 29 5d 29 0a 28 64 65 |$ . 1158|9)]).(de|
|00002e60| 66 61 6c 69 61 73 20 27 | 6e 6e 73 70 6f 6f 6c 2d |falias '|nnspool-|
|00002e70| 70 6f 73 73 69 62 6c 79 | 2d 63 68 61 6e 67 65 2d |possibly|-change-|
|00002e80| 64 69 72 65 63 74 6f 72 | 79 20 23 5b 28 67 72 6f |director|y #[(gro|
|00002e90| 75 70 29 20 22 08 ac 82 | c1 87 c2 08 21 1b c4 0b |up) "...|....!...|
|00002ea0| 21 ab 88 0b 15 08 89 16 | 06 aa 85 c7 c8 c9 08 23 |!.......|.......#|
|00002eb0| 29 87 22 20 5b 67 72 6f | 75 70 20 74 20 6e 6e 73 |)." [gro|up t nns|
|00002ec0| 70 6f 6f 6c 2d 61 72 74 | 69 63 6c 65 2d 70 61 74 |pool-art|icle-pat|
|00002ed0| 68 6e 61 6d 65 20 70 61 | 74 68 6e 61 6d 65 20 66 |hname pa|thname f|
|00002ee0| 69 6c 65 2d 64 69 72 65 | 63 74 6f 72 79 2d 70 20 |ile-dire|ctory-p |
|00002ef0| 6e 6e 73 70 6f 6f 6c 2d | 63 75 72 72 65 6e 74 2d |nnspool-|current-|
|00002f00| 64 69 72 65 63 74 6f 72 | 79 20 6e 6e 73 70 6f 6f |director|y nnspoo|
|00002f10| 6c 2d 63 75 72 72 65 6e | 74 2d 67 72 6f 75 70 20 |l-curren|t-group |
|00002f20| 6e 6e 68 65 61 64 65 72 | 2d 72 65 70 6f 72 74 20 |nnheader|-report |
|00002f30| 6e 6e 73 70 6f 6f 6c 20 | 22 4e 6f 20 73 75 63 68 |nnspool |"No such|
|00002f40| 20 6e 65 77 73 67 72 6f | 75 70 3a 20 25 73 22 5d | newsgro|up: %s"]|
|00002f50| 20 34 5d 29 0a 23 40 32 | 36 20 46 69 6e 64 20 74 | 4]).#@2|6 Find t|
|00002f60| 68 65 20 70 61 74 68 20 | 66 6f 72 20 47 52 4f 55 |he path |for GROU|
|00002f70| 50 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |P...(def|alias 'n|
|00002f80| 6e 73 70 6f 6f 6c 2d 61 | 72 74 69 63 6c 65 2d 70 |nspool-a|rticle-p|
|00002f90| 61 74 68 6e 61 6d 65 20 | 23 5b 28 67 72 6f 75 70 |athname |#[(group|
|00002fa0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 74 69 63 | &option|al artic|
|00002fb0| 6c 65 29 20 22 c0 09 5c | 6e 0b 23 87 22 20 5b 6e |le) "..\|n.#." [n|
|00002fc0| 6e 68 65 61 64 65 72 2d | 67 72 6f 75 70 2d 70 61 |nheader-|group-pa|
|00002fd0| 74 68 6e 61 6d 65 20 67 | 72 6f 75 70 20 6e 6e 73 |thname g|roup nns|
|00002fe0| 70 6f 6f 6c 2d 73 70 6f | 6f 6c 2d 64 69 72 65 63 |pool-spo|ol-direc|
|00002ff0| 74 6f 72 79 20 61 72 74 | 69 63 6c 65 5d 20 34 20 |tory art|icle] 4 |
|00003000| 28 23 24 20 2e 20 31 32 | 31 32 32 29 5d 29 0a 28 |(#$ . 12|122)]).(|
|00003010| 64 65 66 61 6c 69 61 73 | 20 27 6e 6e 73 70 6f 6f |defalias| 'nnspoo|
|00003020| 6c 2d 73 65 63 6f 6e 64 | 73 2d 73 69 6e 63 65 2d |l-second|s-since-|
|00003030| 65 70 6f 63 68 20 23 5b | 28 64 61 74 65 29 20 22 |epoch #[|(date) "|
|00003040| c0 c1 c2 0b 21 5c 22 1c | c0 c5 c6 c2 0b 21 c7 48 |....!\".|.....!.H|
|00003050| 21 5c 22 1e 08 c9 ca 0e | 08 38 0e 08 41 40 0e 08 |!\".....|.8..A@..|
|00003060| 40 ca 0c 38 0c 41 40 0c | 40 cb 0c 38 26 07 89 1e |@..8.A@.|@..8&...|
|00003070| 0c 40 cd 5f 0e 0c 41 40 | 5c 5c 2b 87 22 20 5b 6d |.@._..A@|\\+." [m|
|00003080| 61 70 63 61 72 20 23 5b | 28 74 69 29 20 22 08 ad |apcar #[|(ti) "..|
|00003090| 83 c1 08 21 87 22 20 5b | 74 69 20 73 74 72 69 6e |...!." [|ti strin|
|000030a0| 67 2d 74 6f 2d 69 6e 74 | 5d 20 32 5d 20 74 69 6d |g-to-int|] 2] tim|
|000030b0| 65 7a 6f 6e 65 2d 70 61 | 72 73 65 2d 64 61 74 65 |ezone-pa|rse-date|
|000030c0| 20 64 61 74 65 20 74 64 | 61 74 65 20 23 5b 28 74 | date td|ate #[(t|
|000030d0| 69 29 20 22 08 ad 83 c1 | 08 21 87 22 20 5b 74 69 |i) "....|.!." [ti|
|000030e0| 20 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 5d 20 | string-|to-int] |
|000030f0| 32 5d 20 74 69 6d 65 7a | 6f 6e 65 2d 70 61 72 73 |2] timez|one-pars|
|00003100| 65 2d 74 69 6d 65 20 33 | 20 74 74 69 6d 65 20 65 |e-time 3| ttime e|
|00003110| 6e 63 6f 64 65 2d 74 69 | 6d 65 20 32 20 34 20 75 |ncode-ti|me 2 4 u|
|00003120| 6e 69 78 20 36 35 35 33 | 36 2e 30 5d 20 31 30 5d |nix 6553|6.0] 10]|
|00003130| 29 0a 28 70 72 6f 76 69 | 64 65 20 27 6e 6e 73 70 |).(provi|de 'nnsp|
|00003140| 6f 6f 6c 29 0a          |                         |ool).   |        |
+--------+-------------------------+-------------------------+--------+--------+